PC World 1999 February

home *** CD-ROM | disk | FTP | other *** search

/ PC World 1999 February / PCWorld_1999-02_cd.bin / software / Komer / lotus / Fax Services / INSTALL1.DSK / LFS.LSS < prev next >

Wrap

Text File | 1998-02-06 | 158KB | 3,944 lines

'/********************************************************************* '' '' Module Name: LFS.lss '' '' Module Code: COMINST '' '' Author: '' '' Creation Date: Jan 26, 1994 '' '' Copyright Lotus Development Corporation, (c) 1994 '' '' '' '' Description: '' '' '' Additional authors: '' '' build 113 : Bug Fixes -- 1) Version checking has been improved to check for released builds 4.5 or later '' 2) No need to have notes on the path, since now we check the registry for the notes .lsx file. '' 3) '' build 112 (beta candidate for DFS4.5): This version has retained LFS everywhere except inthe places that user might see '' such as Icon Title, Database Titles, Registry info etc. Fixed several bugs: '' 1. Fixed all the help texts '' 2. Installation on a Domino Server '' 3. Removed '' Change History: '' '' Rev 1.79 01 Jul 1996 15:40:46 jdonohue '' Update shared component version numbers to Suite '97, added uninstall '' '' Rev 1.78 24 May 1996 15:29:38 jdonohue '' Added example of using "Fills" as a shared component '' '' Rev 1.77 17 May 1996 10:36:06 cmoy '' changes to lfsmoredirscb '' '' Rev 1.76 14 May 1996 11:38:56 jdonohue '' Don't call Lot_RegisterObject when registering shared component '' '' Rev 1.75 09 May 1996 14:15:14 glutz '' Added routine for removing previous version to PreCopyConfigLFS. '' '' Rev 1.74 02 Apr 1996 11:51:54 jdonohue '' Added example calls to MarkFixupSourceDirSymbol and MarkLanguageSubdir '' Removed call to SetLanguageSubdir '' '' Rev 1.73 14 Mar 1996 11:58:38 jdonohue '' Ref SPR: DWIR339SWR '' Added ".LNK" to name for uninstall of start menu link in AddIconsLFS '' '' Rev 1.72 07 Mar 1996 09:57:14 jdonohue '' Cleanup call to and function Lot_WriteOLERegForLFS '' '' Rev 1.71 04 Mar 1996 14:43:46 jdonohue '' Removed references to LOTUSAPP in comments '' '' Rev 1.70 28 Feb 1996 15:44:28 jdonohue '' Fixed typo in number calling Reg_SetProdSizes '' '' Rev 1.69 27 Feb 1996 10:27:36 jdonohue '' Changed references to SYM_INSTALLKIND$ to SYM_INSTALLKINDS$(prodno%) '' '' Rev 1.68 22 Feb 1996 13:26:16 mnatsis '' Checking in for SHU CHEN - Added following functions and callbacks '' DetectPreviousVersion, LFSRemoveObsoleteFiles and Lot_WriteOLERegForLFS '' '' Rev 1.2 14 Feb 1996 10:13:58 vtshing '' Bld8; Updating '' '' Rev 1.67 29 Jan 1996 16:28:02 mnatsis '' Added 2 examples of handling backing up SMARTMASTERS. The code is commented '' out. There is no example of how to setup INF files for this however. '' '' Rev 1.66 29 Jan 1996 11:54:30 mnatsis '' Added def for FINDWINDA Windows API '' '' Rev 1.65 29 Jan 1996 11:24:54 mnatsis '' Added code to check if product is running during install - 2 examples '' '' Rev 1.64 04 Jan 1996 13:45:00 jdonohue '' Ref SPR: RMOO2XBHU5 '' Clients register different min/max sizes for node install versus other installs '' Call MarkFixupSourceDirSymbol for server locations (eliminate '' MarkSourceLanguageSubdir) '' '' Rev 1.63 22 Dec 1995 16:06:50 jdonohue '' Ref SPR: TBAT2XDSYX '' The treatment of language dependent content destination directories has been '' changed in LFS.LSS as follows: '' 1) All symbols must be initialized in InitLFS '' 2) Language dependent symbols reset in PreCopyConfigLFS just prior to copying '' the files. '' All references to SYM_PARENTDIR$ have been removed -- use SYM_BASEDIR$ '' Icons use language acronym ("DE") rather than name ("Deutsch") '' '' Rev 1.62 08 Dec 1995 14:15:36 jdonohue '' Fix JHAR2W5LRL: Added call to Lot_TrimEndSlash before writing path in registr '' '' Rev 1.61 07 Nov 1995 10:21:24 tveerapp '' Moved the LANGDIR setting to Init and took out code from InitCopylist. '' this should be there in PreCopyConfig. '' '' Rev 1.60 03 Nov 1995 12:04:46 jdonohue '' Do not regresh destination for distribution install in PreCopyConfig '' '' Rev 1.59 Oct 26 1995 16:53:48 cmoy '' Added call to Lot_RefreshDestination for language subdirectories in PreCopyCo '' nfig '' '' Rev 1.58 25 Oct 1995 11:17:28 jdonohue '' Added setting language symbols to PreCopyConfigLFS '' '' Rev 1.57 Oct 24 1995 16:57:44 cmoy '' removed eof char '' '' Rev 1.56 23 Oct 1995 12:29:40 jdonohue '' Don't use SYM_REG_PRODUCTNAME$, SYM_REG_PRODUCTVER$ for registry since this i '' only valid for product #1, which may be suite '' '' Rev 1.55 13 Oct 1995 16:30:50 jdonohue '' Changed "Install Type" to "InstallType" '' New Function LFS_RegisterSharedComponent to write registry entry and create '' object for uninstall '' Streamlined logic for language qualifier on icon '' '' Rev 1.54 05 Oct 1995 10:48:50 glutz '' Change references to DBLFS_MOREDIRS to DBLFS_MOREDIRS3. '' '' Rev 1.53 27 Sep 1995 12:46:54 jdonohue '' Modified InitLanguageLFS to call InitLanguages function '' '' Rev 1.52 01 Sep 1995 13:11:38 amontalv '' Correction to how icons are named. Had used call to Lot_GetProgFolder, which was '' only needed when registering the link object. '' '' Rev 1.51 29 Aug 1995 14:16:52 tveerapp '' Commented out code to surface default preferences dialog. '' '' Rev 1.50 28 Aug 1995 16:59:30 tveerapp '' FIxed the node initcopylist code that turned off sections not installed on '' the server. '' '' Rev 1.49 28 Aug 1995 13:41:40 tveerapp '' No change. '' '' Rev 1.48 28 Aug 1995 13:40:12 tveerapp '' Removed the example for registering the Program Group for '' uninstall. This fixes an spr. '' '' Rev 1.47 25 Aug 1995 11:27:06 amontalv '' Made icons in all environments have same name. '' '' Rev 1.46 24 Aug 1995 10:30:48 jdonohue '' Added comment about USERDIR '' '' Rev 1.45 23 Aug 1995 12:26:54 tveerapp '' Added code to register work, masters and backup directories with the toolkit. '' '' Rev 1.44 22 Aug 1995 18:24:54 tveerapp '' Added the callback etc for work, smasters and backup. '' '' Rev 1.43 22 Aug 1995 15:17:10 jdonohue '' Do not register the uninstaller for language install '' '' Rev 1.42 22 Aug 1995 14:03:20 jdonohue '' Changed GetLFSPathfromLotusIni to check for registry entries '' Function GetLFSPathfromLotusIni returns path w/o filename now '' '' Rev 1.41 21 Aug 1995 15:50:54 amontalv '' Added global for registry entry. '' '' Rev 1.40 21 Aug 1995 10:23:48 jdonohue '' Added calls in Init for marking secondary language content directories '' Moved language directory symbol setting code to InitCopyList '' '' Rev 1.39 17 Aug 1995 09:34:14 amontalv '' Had put wrong number of arguments. '' '' Rev 1.38 16 Aug 1995 20:35:30 amontalv '' Added some error handling for registry. '' '' Rev 1.37 15 Aug 1995 11:53:12 jdonohue '' Removed SYM_INSTALLKIND$ -- in GLOBALS.LSS '' '' Rev 1.36 09 Aug 1995 09:18:16 jdonohue '' Don't add language qualifier to icon for first time install '' '' Rev 1.35 04 Aug 1995 15:53:38 jdonohue '' Added code to create icons with language switch and sublanguage name appended '' '' Rev 1.34 02 Aug 1995 16:54:54 jdonohue '' Changed calling syntax for InitLanguageLFS '' '' Rev 1.33 31 Jul 1995 16:28:10 pdonahue '' changed verison number from 2.1 to 0.0. '' Changed registry entry for installtype from type REG_SZ to REG_DWORD. '' '' Rev 1.32 20 Jul 1995 14:20:58 jdonohue '' Fixed uninstall command line string for language '' '' Rev 1.31 12 Jul 1995 17:07:18 jdonohue '' Added comments about language install subdirectories '' '' Rev 1.30 23 Jun 1995 13:55:56 mzgripce '' remove autoinst.rsp from the uninstaller registration example '' '' Rev 1.29 23 Jun 1995 13:24:56 mzgripce '' added an example for the Program_group class registration '' '' Rev 1.28 22 Jun 1995 18:38:14 mzgripce '' register the components that are going with the lfs product:aswan and its '' dependency: LotusScript,Bento and Shared help '' '' Rev 1.27 21 Jun 1995 18:01:26 mzgripce '' add examples for the other object clases registration for uninstall '' '' Rev 1.26 21 Jun 1995 12:48:08 jdonohue '' SYM_INSTALLKIND global symbol, not product specific '' '' Rev 1.25 21 Jun 1995 09:09:42 jdonohue '' Moved AddRegistryLanguage to AddRegistryKeysLFS '' '' Rev 1.24 19 Jun 1995 17:41:56 mzgripce '' change the lfs version to 2.1 and enable the uninstaller registration '' '' Rev 1.23 19 Jun 1995 16:53:24 mzgripce '' add examples calls to Lot_RegisterObject() '' '' Rev 1.22 16 Jun 1995 17:08:02 pdonahue '' added registry entries for lfs. '' '' Rev 1.21 09 Jun 1995 17:00:58 mzgripce '' added call example in PostCopyConfig to register the uninstaller '' '' Rev 1.20 07 Jun 1995 16:32:08 amontalv '' Changed the Win95 start folder so that it initializes '' earlier in the program. This should make automation '' easier to implement for it. There are still a couple of '' bugs that I need to work out, but I feel that I should '' check what I have now. I also changed the name of some '' of the functions to conform more to current names. '' '' Rev 1.19 01 Jun 1995 14:54:10 amontalv '' Had the check incorrect for creating links. It tried to create links '' when not in Win95 instead of when in Win95. '' '' Rev 1.18 01 Jun 1995 11:11:52 amontalv '' Added API function CreateLink to create shortcuts. Also added functions '' to save and get the link path to support the CreateLink. I also changed '' the startup program folder code to use the default dialog proc and changed '' the default dialog proc to process directory trees. '' '' Rev 1.17 30 May 1995 16:01:00 jdonohue '' Set symbols for product and version for language install '' '' Rev 1.16 21 May 1995 17:30:24 mzgripce '' add an example for share32 support '' '' Rev 1.15 19 May 1995 15:31:28 mzgripce '' use the parent dir in the product default destination '' '' Rev 1.14 19 May 1995 14:42:44 jdonohue '' Remove redundant symbol for language subdirectory '' '' Rev 1.13 19 May 1995 13:23:46 jdonohue '' Added call to Lot_SetLanguageSectionsOn '' '' Rev 1.12 18 May 1995 15:36:52 jdonohue '' Added language install code '' '' Rev 1.11 18 May 1995 10:18:52 jdonohue '' Added language install function InitLanguage '' '' Rev 1.9 02 May 1995 12:54:06 cmoy '' Merged c2 into cf build '' '' Rev 1.9 10 Apr 1995 18:11:28 amontalv '' Changed comments to reflect change of function reference. '' '' Rev 1.8 31 May 1994 13:54:42 mmeth '' '' Added PrevVersionLFS '' '' Rev 1.7 13 May 1994 14:09:20 thangv '' '' Added the else part to the default code in InitLFS case node. '' '' Rev 1.6 06 May 1994 09:24:52 mmeth '' wrong return for function '' '' Rev 1.5 02 May 1994 19:18:16 mzgripce '' '' add AddIconsLFS '' '' Rev 1.4 28 Mar 1994 17:25:50 thangv '' '' Resourced strings that were not. SID_LFS_SERVER_DIRNAME, SID_LFS_DIST_DIRNA '' '' Rev 1.3 22 Mar 1994 09:24:46 mmeth '' Modified AddTo Billboard List to use IDD_LFSBILLBD1,... '' '' Rev 1.2 17 Feb 1994 17:44:44 thangv '' Fixed the trailing \ and LFS_DIR '' '' Rev 1.1 15 Feb 1994 14:36:20 mmeth '' moved the EXIT FUNCTION CALL in '' '' Rev 1.0 11 Feb 1994 10:53:40 jbrodeur '' Initial Revision ''---------------------------------------------------------------------- '' Date Vers. Pgmr SPR# Change ''---------------------------------------------------------------------- '' ! '' 02-07-94 0000 Initial Product Shipment '' ''---------------------------------------------------------------------- '' ''*********************************************************************/ '** This file contains detailed comments. PLEASE READ THEM! They provide '** information that will make writing Install much easier. In some '** cases, you will not find this information in any other sources. ''*********************************************************************/ '** USE "TOOLKIT" USE "LANGUAGE" OPTION DECLARE Uselsx "*Notes" '%INCLUDE "lsconst.lss" '%INCLUDE "lsxbeerr.lss" '%INCLUDE "lsxuierr.lss" '** These Are the Required Functions that Products must provide '*************************************************************** DECLARE PUBLIC FUNCTION ProductRegLFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC FUNCTION DefaultUserRegLFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC FUNCTION InitLFS (prodno%, network$, direction$, basedir$) AS STRING DECLARE PUBLIC FUNCTION PrevVersionsLFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC FUNCTION PathChangeLFS (prodno%, network$, direction$, destdirsym$, mainprodsonly%) AS STRING DECLARE PUBLIC FUNCTION InitCopyListLFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC FUNCTION PreCopyConfigLFS (prodno%, network$, direction$, lic%) AS STRING DECLARE PUBLIC FUNCTION AddTheBillBoardsLFS (prodno%, network$, direction$, nbytes&) AS STRING DECLARE PUBLIC FUNCTION PostCopyConfigLFS (prodno%, network$, direction$, programgroup$) AS STRING DECLARE PUBLIC FUNCTION AddIconsLFS (prodno%, network$, direction$, programgroup$) AS STRING DECLARE PUBLIC FUNCTION UILFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC FUNCTION PostSuccessRegLFS (prodno%, network$, direction$) AS STRING DECLARE PUBLIC SUB AddRegistryKeysLFS (prodno%, network$) DECLARE PUBLIC FUNCTION InitLanguageLFS (prodno%, network$, direction$) AS STRING DECLARE SUB RemoveDevAndService() DECLARE SUB RenameDir(sourceDir As STRING, destDir As STRING) DECLARE SUB RemoveLFS11() DECLARE FUNCTION DetectPreviousVersion (Productfound$) AS STRING DECLARE SUB LFSRemoveObsoleteFiles (hDlg&, CtrlId%, Classes$, LInst&) DECLARE SUB CreateDBandCopyDocs(newTemplate As NotesDatabase, currentDB As NotesDatabase,title$,filename$) DECLARE SUB CreateDBOnServerAndCopyDocs(newTemplate As NotesDatabase, currentDB As NotesDatabase, oldserver$, newserver$, title$, filename$) DECLARE FUNCTION GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _ As STRING, lpKeyName As Any, _ ByVal lpDefault As STRING, ByVal lpReturnedString As STRING,ByVal nSize As Integer, _ ByVal lpFileName As STRING) As LONG DECLARE FUNCTION GetDlgItemText Lib "user32" Alias "GetDlgItemTextA" (ByVal hwnd&,ByVal ctrlId%, ByVal szText _ As STRING, ByVal strSize%) AS INTEGER DECLARE FUNCTION WinExec Lib "Kernel32" Alias "WinExec" (ByVal cmdLine As STRING, ByVal cmdShowFlag%) As INTEGER DECLARE FUNCTION MoveFile Lib "Kernel32" Alias "MoveFileA" (ByVal SrcFile As STRING, ByVal DestFile As Any) As INTEGER DECLARE SUB SetAccessLevels(newdb As NotesDatabase, defACL%,anonymACL%) DECLARE SUB EnableRoles(newdb As NotesDatabase,person AS STRING, acllevel%, role AS STRING) DECLARE FUNCTION readOldServerNamesFromRegistry () '********************************************* GetServerList function lives in Cookie.dll ******************* DECLARE PUBLIC FUNCTION LFSGetServerList LIB "COOKIE.DLL" ALIAS "#5" (ByVal pszPortName As STRING,_ pwNumEntries As INTEGER,ByVal pszServerNames As STRING, ByVal wBufLen As INTEGER) As Integer '** Product specific functions '***************************** DECLARE FUNCTION GetLFSPathfromLotusIni() AS STRING DECLARE SUB LFS_RegisterSharedComponent(Key$, FileName$, Version$) DECLARE FUNCTION Lot_WriteOLERegForLFS(network$, prodno%) AS INTEGER DECLARE FUNCTION FindWindowA LIB "user32" (ByVal lpClassName As Any, ByVal lpCaption As Any) AS LONG '************************************************************************* '**************************** Required Functions ************************* '************************************************************************* DECLARE SUB LFSNOTESDBCB(hDlg&, CtrlId%, Classes$, LInst&) CONST Debug = 0 CONST doUpgrade = 1, doOverwrite = 2, doBring = 1 '**//{{PYL_ADDED(GLOBAL) DIM mailserver As STRING DIM mailfile As STRING DIM tempMailFile As STRING DIM maildomain As STRING DIM admindbname AS STRING DIM formsdbname AS STRING DIM logdbname AS STRING DIM coverdbname AS STRING DIM faxdbname AS STRING DIM transdbname AS STRING DIM oldadminserver$,oldformsserver$, oldlogserver$,oldtransserver$ DIM adminserver AS STRING DIM formsserver AS STRING DIM logserver As STRING DIM transserver As STRING DIM coverserver As STRING DIM faxqserver As STRING DIM webfaxdbname As STRING DIM dominoserver As STRING DIM DoDomino% DIM recursiveCount% DIM DBUpgradeOverwriteCancel% 'This is flag to indicate whether to upgrade (=1), Overwrite (=2) or Leave untouched (=3) 'a Notes Database which already exists on the user's system. DIM NameOfDBtoUpgrade AS STRING DIM ServerOfDBtoUpgrade AS STRING DIM newServerName AS STRING DIM InstLogFile% CONST adminTitle$ = "DFS Administration Database" CONST phoneTitle$ = "DFS Phone Translation Database" '**//}}PYL_ADDED '************************************************************************* '** SUB Initialize '** '** Purpose: The only purpose of this routine is to register your product. '** This routine assigns your acronym to your product. '** Without this function, your product will not install. '** All you need to do in this subroutine is: '** modify LFS -> your acronym. '** '** ASSUMPTIONS: Many things in the toolkit key off of your '** acronym. These are the constraints: '** 1. Your top level chapter in the INF must '** have a KEYWORD of your acronym +"TOP" '** e.g. acronymTOP '** Author: Marcel Meth '** Arguments: None '** Returns: NONE '************************************************************************* SUB Initialize Reg_RegisterProductNames "LFS", LdString(SID_LFS_COMMERCIALNAME) END SUB '************************************************************************* '** FUNCTION ProductRegLFS (prodno%, network$, direction$) AS INTEGER '** '** Purpose: This function allows your product to register itself '** in the Install Product Registry. The toolkit stores '** the information provided and will provide you with '** various features accordingly. For example, if you support '** shared files, the toolkit will do most of the work '** for the COMPNENT directory. '** '** For the most part you should use only Reg_Set... Functions. '** '** '** If you turn on ATM, LICENSING, or SHARED tools, then '** you must be sure to add the appropriate lines and files '** in your acronym.SCR and acronym.LYT, respectively. '** See Cookbook. '** '** If you support server install, (because you need the files '** for Licenser), you will have to make sure that you have '** the correct **entire** contents of install.lyt and install.scr '** for the install files in your acronym.SCR and acronym.LYT '** '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: UNINITIALIZED '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards, i.e start at your last dialog '** first. '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '************************************************************************* PUBLIC FUNCTION ProductRegLFS (prodno%, network$, direction$) AS STRING ProductRegLFS = gNEXT '** FOR a complete set of things to register '** see API doc under Reg_Set... '**Reg_SetSupportedInstallTypes prodno%, 1, 1, 1 Reg_SetSupportedInstallTypes prodno%, 1, 0, 0 If network$ = gNODE$ Then Reg_SetProdSizes prodno%, 20 * 1024, 20 * 1024 Else Reg_SetProdSizes prodno%, 4 * 1048576, 2 * 1048576 End If '** If you need Lotusapp or datalens support turn this on. Reg_SetShareFlags prodno%, 1, 1, 1, 1 '** If you need Components directory turn this on. Reg_SetShare32Flag prodno%, 0 '** Coming to an install program near you soon 'Reg_SetCDOption prodno%,Inst%,CDOptStr$ 'Reg_SetCDOptionSelected ProdNo%,Inst%,Selection% '** Any options that you want your sys-admin and node user to see '** must be entered here. They must correspond with keywrods in the '** inf file. This functionality will be avilable March 4, but you '** can set these fields now! 'Reg_SetNodeOption ProdNo%,Inst%,NodeOptStr$ 'Reg_SetNodeOptionSelected ProdNo%,Inst%,Selection% '** Toolkit default is for no server supprt, turn on if desired. Reg_SetSrvSupport prodno%, 1 '** Toolkit default is for no server supprt, turn on if desired. '** license support only available for server install. Reg_SetLicenseSupport prodno%, 0 '** Toolkit default is no ATM support 'Reg_SetATMSupport prodno%, 0 '** This is the default value the user will see. Reg_SetProgManagerGroup prodno%, LdString(SID_LOTUS_APPLICATIONS) '** Required if you have a work, smartmasters and backup directories '** register support with the toolkit to surface the dialog Reg_SetMoreDirsData prodno%, "LFSMOREDIRSCB", DBLFS_MOREDIRS3, _ DBLFS_MOREDIRS3 END FUNCTION '************************************************************************* '** FUNCTION DefaultUserRegLFS (prodno%, network$, direction$) AS STRING '** '** Purpose: **Only** the first registered product gets called. '** For SmartSuite, this will be SmartSuite. '** This function allows you to set the default user registration '** information that the user will be shown. The toolkit '** will provide default values from MS-Windows. If you disagree '** with them you should modify them in this function using: '** SetSymbolValue on SYM_NAME, SYM_COMPANY & SYM_SERIALNUM$ '** '** It is up to you how you store registration information. '** It will not be stored until later in PostCopyConfigLFS. '** The CIT provides functions that allow you to access .ri '** files: Lot_ReadDefaultsfromRi(ripath$). '** '** If you need to write back to the floppy, do it here. '** Most Lotus products will no longer write back to the floppy. '** Remeber, you can't write back to a CD or network! '** '** In Symbols : SYM_NAME$, SYM_COMPANY$ '** Out Symbols: SYM_NAME$, SYM_COMPANY$, SYM_SERIALNUM$ '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: UNINITIALIZED '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards, i.e start at your last dialog '** first. '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '************************************************************************* PUBLIC FUNCTION DefaultUserRegLFS (prodno%, network$, direction$) AS STRING DIM ripath$, defdir$, temp%, rc% DefaultUserRegLFS = gNEXT If network$ = gNODE$ Then ripath$ = GetSymbolValue(SYM_STF_SRCDIR$) + "LFS.ri" ElseIf network$ = gSTANDARD$ Then '** GetLFS.... is in this file and illustrates how to '** retrieve you prod. from lotus.ini defdir$ = GetLFSPathfromLotusIni() if defdir$ = "" goto rinotfound ripath$ = defdir$ + "LFS.ri" End If '' RETURNS TRUE IF SUCCESSFULLY FOUND RI FILE AND READ INFORMATION '' This functions populates: SYM_NAME$, SYM_COMPANY$, SYM_SERIALNUM$ rc% = Lot_ReadDefaultsfromRi(ripath$) rinotfound: END FUNCTION '************************************************************************* '** FUNCTION InitLFS (prodno%, network$, direction$, basedir$) AS STRING '** '** Purpose: This function will be called after the Welcome dialog has been '** filled in by the user. This is the first time you will be '** called when the server parameter is valid. '** You need to use this function to intialize certain things. '** (See the MUST DO below). '** '** This is a good place to put up a LotusScript messagebox warning the user '** of a previous version of your product. If there is a previous '** version you might want to steer them towards overwriting it, '** deleting the old version, or allowing both versions to exist. '** '** '** Must Do: You **MUST** set inital values for all of the destination '** ======= directories that you refer to in your INF file. If you do not, '** then InitCopylist will fail! e.g. SetSymbolValue "LFSDIR", basedir$ '** Of course you may be more intelligent. You should preface your '** directory with basedir$. The toolkit is finding a good drive '** letter and basedirectory. Also, remeber all paths end in a '** \ and are lower case. '** '** You should **NOT** define LOTUSFONTSDIR, WINDIR, '** USERDIR & WINSYSDIR. The toolkit does this for you. '** '** Once you have defined destdir symbols, you need to register '** them with the toolkit. (See the code below) '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards, i.e start at your last dialog '** first. '** '** basedir$: The toolkit has found a good base. for your directory. '** This is it. You should use it. This will make Smart '** Suite work, and will pick a good drive letter for you. '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION InitLFS (prodno%, network$, direction$, basedir$) AS STRING DIM sym$, symname$, defdir$, position%, proddir$, iniPath$, rv%, LFSversion$, notused% DIM Productfound$,previousprod$,temp% DIM NotesDataDir$ '**//{{PYL_ADDED(NOTESDATADIR) //}}PYL_ADDED DIM sourceFile As STRING DIM destFile As STRING DIM majorVer#,minorVer# DIM filename$ ' Check and make sure that we have Notes 4.x on the system DIM session As New NotesSession DIM versionStr As STRING DIM startPos% versionStr$ = session.NotesVersion startPos% = InStr(1,versionStr$,"4.") If (startPos%) Then majorVer# = Val(Mid$(versionStr$,startPos%,3)) End If ' minorVer# = Val(Mid$(versionStr$,3,1)) ' MessageBox "majorVersion is "+str$(majorVer#) 'MessageBox "This is PreGold Version. Fix the version checking for Gold" ' MessageBox "MajorVer "+str$(majorVer#)+" Minor Ver "+str$(minorVer#) ' If (majorVer# < 4.5) Then ' this is not a 4.5 release or later of Notes ' MessageBox "Version of Notes on your machine has to be 4.5 or later, and currently you have "+versionStr$+"installed. Please upgrade and start the Install again" ' ERROR STFQUIT ' End If '**//{{PYL_ADDED(BEFOREYOUBEGIN) 'Open a log file for writing debug messages 'InstLogFile% = FreeFile() 'MessageBox InstLogFile% 'filename$ = curdrive()+"DFS45Install.log" 'Open filename For OutPut As InstLogFile% SetListItem "IDC_BMP", 1, STR$(IDB_EXCLAIM) direction$ = PopupModalDlg (DB_BEFORE_YOU_BEGIN, DB_BEFORE_YOU_BEGIN) If direction$ = gBACK Then QUIT End If '**//}}PYL_ADDED '**//{{PKK_ADDED ''notused% = RegisterCallback("LFS", "LFSDODOMINOCB") ''direction$ = PopUpModalDlg (DBLFS_DO_DOMINO, DBLFS_DO_DOMINO) dominoserver$ = "" DoDomino = -1 '**//}} PKK_ADDED InitLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If '' Setup Default directory settings and the associated '' text that the user will see sym$ = Reg_GetDirSymbolList(prodno%) symname$ = sym$ + gNAME ''These two line register it with the toolkit. SetListItem sym$, 1, "LFSDIR" SetListItem symname$, 1, "LFSDIRNAME" ''the names aren't used, but register anyway SetListItem sym$, 2, "LFSWORKDIR" SetListItem symname$, 2, "LFSWORKDIRNAME" SetListItem sym$, 3, "LFSMASTERSDIR" SetListItem symname$, 3, "LFSMASTERSDIRNAME" SetListItem sym$, 4, "LFSBACKUPDIR" SetListItem symname$, 4, "LFSBACKUPDIRNAME" '** NOTE The path in the string table is lower case and ends with a slash SetSymbolValue "LFSDIR", basedir$ + LdString(SID_LFS_DIR) SetSymbolValue "LFSWORKDIR", basedir$ + LdString(SID_LFSWORK_DIR) SetSymbolValue "LFSMASTERSDIR", basedir$ + LdString(SID_LFSMASTERS_DIR) SetSymbolValue "LFSBACKUPDIR", basedir$ + LdString(SID_LFSBACKUP_DIR) SetSymbolValue "LFSLANGDIR", GetSymbolValue("LFSDIR") '** This will be the name of the directory that shows up in captions in '** toolkit dialogs (Static text) SetSymbolValue "LFSDIRNAME", LdString(SID_LFS_DIRNAME) '**//{{PYL_ADDED(NOTESDATADIR) NotesDataDir$ = Lot_GetLotusNotesDataPath() SetSymbolValue "NOTESDATADIR", LCASE$(NotesDataDir$) '**//}}PYL_ADDED '** Put up a dlg box, if previous version of product found '========================================================== If network$ = gSTANDARD$ Then previousprod$ = DetectPreviousVersion(Productfound$) If Productfound$ = "True" Then Reg_SetObsFiles prodno%,1 else If previousprod$ = "YES" Then if GetSymbolValue(SYM_SINGLESMARTSUITE$) = gSMARTSUITE$ then Reg_SetPreviousVersion prodno%,"1" else ' direction$ = PopupModalDlg (DBLFS_EXISTING, DBLFS_EXISTING) direction$ = gNext$ If direction$ = gBACK Then InitLFS= direction$ EXIT FUNCTION End If End if end if End if End if '** Put up dialog box, if a version of app is currently running '========================================================== '** Use the window address of the Window name - Caption '** You can alternatly use the address of the class name...MAN DIM szWindowName$, nFind& szWindowName$ = LdString(SID_LFS_RUNNING) nFind& = FindWindowA (szWindowName$, 0&) while direction$ = gNEXT$ AND nFind& <> 0 direction$ = PopupModalDlg (DBLFS_RUNNING, DBLFS_RUNNING) if direction$ = gBACK$ then InitLFS = direction$ EXIT FUNCTION end if nFind& = FindWindowA (szWindowName$, 0&) wend '** Here's an example using the address of the class name '** This may be better since Captions can change. '** Put up dialog box if a version is currently running '** Use the windows Class of the Application...MN 'DIM szClassName$, nFind% 'szClassName$ = "LFSAPP_CLASS" 'nFind& = FindWindowA (szClassName$, 0&) 'while direction$ = gNEXT$ AND nFind& <> 0 'direction$ = PopupModalDlg (DBLFS_RUNNING, DBLFS_RUNNING) 'if direction$ = gBACK$ then 'InitLFS = direction$ 'EXIT FUNCTION 'end if 'nFind& = FindWindowA (szClassName$, 0&) 'wend '' Special Cases for setting these symbols '' Strings should be resourced, but we didn't want to clutter '' the LFS string table. SELECT CASE network$ CASE gSERVER$ SetSymbolValue "LFSNAME", LdString(SID_LFS_SERVER_DIRNAME) CASE gDISTRIBUTION$ SetSymbolValue "LFSNAME", LdString(SID_LFS_DIST_DIRNAME) CASE gSTANDARD$ '' check if there is an existing product iniPath$ = GetWindowsDir() + "lotus.ini" if DoesFileExist(inipath$,femExists) then defdir$ = GetIniKeyString( iniPath$,"Lotus Applications", "LFS") if defdir$ <> "" then temp% = INSTR(1,LCASE$(defdir$),"release") if temp% <> 0 then LFSversion$ = MID$(defdir$,(temp%+8),3) end if IF (LFSversion$ = "2.1") and ( previousprod$ = "YES" ) THEN temp% = INSTR(1,LCASE$(defdir$),"LFS.exe") proddir$ = MID$(defdir$,1,(temp%-1)) rv% = Lot_CleanPath(proddir$) Else IF GetSymbolValue(SYM_SINGLESMARTSUITE$) = gSMARTSUITE$ THEN proddir$ = basedir$ + LdString(SID_LFS_DIR) ELSE proddir$ = GetSymbolValue(SYM_BASEDIR$) + LdString(SID_LFS_DIR) END IF END IF else IF GetSymbolValue(SYM_SINGLESMARTSUITE$) = gSMARTSUITE$ THEN proddir$ = basedir$ + LdString(SID_LFS_DIR) ELSE proddir$ = GetSymbolValue(SYM_BASEDIR$) + LdString(SID_LFS_DIR) END IF end if else IF GetSymbolValue(SYM_SINGLESMARTSUITE$) = gSMARTSUITE$ THEN proddir$ = basedir$ + LdString(SID_LFS_DIR) ELSE proddir$ = GetSymbolValue(SYM_BASEDIR$) + LdString(SID_LFS_DIR) END IF end if SetSymbolValue "LFSDIR", proddir$ CASE gNODE$ iniPath$ = GetWindowsDir() + "lfs.ini" IF DoesFileExist(iniPath$, femExists) THEN proddir$ = GetIniKeyString(iniPath$,"DIRECTORIES","personal") rv% = Lot_CleanPath(proddir$) IF proddir$ = "" THEN proddir$ = basedir$ + LdString(SID_LFS_DIR) END IF ELSE proddir$ = basedir$ + LdString(SID_LFS_DIR) END IF SetSymbolValue "LFSDIR", proddir$ END SELECT '' Mark directory symbols that need source file adjustment '' Bare filename in .inf file, symbol will be set to the installed location '' on the server obtained by reading the server cinstall.ini file '' This is needed for files that are located in a sibling directory to the '' product directory, e.g., SmartMasters, which would be installed: '' \Lotus\ '' \Lotus\smasters '' \Lotus\LFS MarkFixupSourceDirSymbol("LFSMASTERSDIR") '' Mark directory symbols that are language dependent. CIT will add the '' appropriate language subdirectory to the files in the copy list for '' destinations for a language install, and source if a server install of a '' secondary language on the SERVER MarkLanguageSubdir("LFSLANGDIR") MarkLanguageSubdir("LFSMASTERSDIR") END FUNCTION '************************************************************************* '** FUNCTION PrevVersionsLFS (prodno%, network$, direction$) AS STRING '** '** Purpose: This function is called only for SmartSUite. It is called '** immediately after all the other product functions for '** InitLFS are called. It allows SmartSuite to assess whether '** there are older versions of products around. '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards, i.e start at your last dialog '** first. '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION PrevVersionsLFS (prodno%, network$, direction$) AS STRING DIM nProducts%, prodIndex%, i% nProducts% = Reg_GetNumberOfProducts() FOR prodIndex% = 1 to nProducts% If Reg_GetPreviousVersion(prodIndex%) <> "" Then i% = DoMsgBox("Older Versions Found","", MB_OK) GOTO PREVPRODFOUND End If NEXT PREVPRODFOUND: END FUNCTION '************************************************************************* '** FUNCTION PathChangeLFS (prodno%, network$, direction$, destdirsym$, mainprodsonly%) AS STRING '** '** Purpose: This function is called whenever the user proposes changes '** to a path for your product. By the time this function calls '** you, the paths have already been checked syntactically, and '** the directory has been checked to see that it is writeable. '** Your obligation is to verify that the proposed new path is ok '** with you. If not, put up a Lotus Script :"MESSAGEBOX" '** telling the user and return gBACK. '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** destdirsym$: The destdir symbol that has changed. e.g. "LFSDIR" '** mainprodsonly%: (TRUE | FALSE) , when TRUE this means that only '** your top level product directory should change, '** probably "LFSDIR". When it is false, it means that '** all related directories should change. It is **YOUR '** RESPONSIBILITY** to implement this functionality. '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION PathChangeLFS (prodno%, network$, direction$, destdirsym$, mainprodsonly%) AS STRING DIM path$ PathChangeLFS = gNEXT path$ = GetSymbolValue (destdirsym$) '' The following is a psudocode example ''''''rc$ = DetectVersionPriorToDarwin(path$) ''''''If rc$ = "BEAGLE" then '''''' ShowPathError SID_BEAGLE_FOUND, SID_ERR_EXISTBEAGLE, path$ '''''' PathChangeLFS = gBACK ''''''end if END FUNCTION '************************************************************************* '** FUNCTION InitCopyListLFS (prodno%, network$, direction$) AS STRING '** '** Purpose: Product must Initialize the copylist '** '** Must Do: You must initialize the copy list. However, '** ======= if you leave the code as is (don't touch it at all), '** it will probably work for you. Copy list must be initialized. '** CAUTION: Make sure that your toplevel section in the '** acronym.SCR has a keyword of "acronymTOP" '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION InitCopyListLFS (prodno%, network$, direction$) AS STRING DIM i%, sym$, chpt$, nextprod$, notused%, FeatureToFind$ ON Error STFQUIT GOTO COPYLISTERROR InitCopyListLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If sym$ = Reg_GetProductAcronym(prodno%) + gTOP$ chpt$ = Lot_GetChapterFromKeyWord(sym$) If chpt$ = "" Then ERROR STFQUIT End IF SELECT CASE Reg_GetProdSelectedInstallType(prodno%) CASE gCOMPLETE$ i% = F_COMPLETE CASE gLAPTOP$ i% = F_LAPTOP CASE gCUSTOM$ i% = F_CUSTOM END SELECT Lot_InitializeCopyList chpt$, i% '** Make sure to turn off all sections not available on the server. If network$ = gNODE Then nextprod$ = Lot_GetNextSibling(chpt$, F_NOTHING) chpt$ = Lot_GetFirst(chpt$, F_KEYWORD) WHILE (chpt$ <> "" AND chpt$ <> nextprod$) FeatureToFind$ = Lot_GetChapterValStr(chpt$, F_KEYWORD) If Lot_IsTheFeatureInstalled(FeatureToFind$) = FALSE Then notused% = Lot_SetChapterFilesInCopyListInOrOut (chpt$, 0) End If chpt$ = Lot_GetNext() WEND End If EXIT FUNCTION COPYLISTERROR: ErrorMsg 0, "Developers: You need to have licenser section with LFSTOP in INF file" ERROR STFQUIT END FUNCTION '************************************************************************* '** FUNCTION UILFS (prodno%, network$, direction$) AS STRING '** '** Purpose: This is your chance to put up any User Interface '** that you want. Remember, try to keep it short. '** In SmartSuite, if every product puts up two extra '** dialogs, then the SmartSuite will consist of 16 dialogs! '** '** Pay attention to the value of direction, if you are putting '** up more than one dialog. '** '** The toolkit will do an accurate space computation later, '** so you can tamper with the copy list. But you shouldn't '** write out anything to the disk until PostCopyCofig! '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is oart of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION UILFS (prodno%, network$, direction$) AS STRING DIM notused%, chpt$ '*** If custom and not Suite then surface the more dirs dlg '*** ''''IF Reg_GetProdSelectedInstallType(prodno%) = gCUSTOM$ AND _ '''' GetSymbolValue(SYM_SINGLESMARTSUITE$) <> gSMARTSUITE$ Then '''' notused% = RegisterCallback("LFS","LFSMOREDIRSCB") '''' direction$ = PopupModalDlg (DBLFS_MOREDIRS, DBLFS_MOREDIRS) ''''END IF UILFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If '*** Remove Obsolete Files dlg for LFS if Reg_GetObsFiles (prodno%) = 1 AND GetSymbolValue (SYM_SINGLESMARTSUITE$) <> gSMARTSUITE$ AND _ network$ = gSTANDARD$ _ then ' notused% = RegisterCallback("LFS", "LFSRemoveObsoleteFiles") ' direction$ = PopupModalDlg (DBLFS_REMOVEPRODFILES, DBLFS_REMOVEPRODFILES) '* the callback did the work, on both IDC_OK and IDC_BACK we '* actually want to go next if direction$ = gBACK then direction$ = gNEXT end if end if '*** Below are two examples of how to surface a dialog to prompt the use wether '*** they want to backup thier SmartMasters. The 2nd example should be used since it '*** checks wether or not the Install is a Language Install. We do NOT want to surface '*** this during a Language Install. There is no an example of how to setup your INF file '*** (LYT/SCR) for this since it would of been alot more work to give a 'real' example. '*** You can use Freeelance or WordPro's INF's as an example if this is necessary 'Give user option to backup currently installed masters: Stolen from FLW: MN ' IF network$ = gSTANDARD$ AND UILFS <> gBACK THEN ' IF ( InstalledLFSVersion$ = "LFS" ) THEN ' 'REVIST Make sure we don't back up for a node. ' IF (GetPersonalDir() = "") THEN ' chpt$ = Lot_GetChapterFromKeyword("LFS_SMARTMASTERS") ' IF (Lot_GetChapterValInt(chpt$, F_INOROUT) = 1) THEN ' IF (FIsKeywordinCopyList("LFS_SMARTMASTERS") = 1) THEN ' IF (GetSymbolValue(SYM_AUTOMATIONINST$) = gTRUE$) THEN ' IF (Lot_GetKeyValFromResponseFile("LFS","LFSBackupSmartMasters")="1") THEN ' LFSBackupSmartMasters = TRUE ' ELSE ' LFSBackupSmartMasters = FALSE ' END IF ' ELSE ' notused% = RegisterCallback("LFS", "LFSBACKUPMASTERSCB") ' UILFS = PopupModalDlg (DB_BACKUPLFSMAS, DB_BACKUPLFSMAS) ' END IF ' ' IF (LFSBackupSmartMasters% = TRUE) THEN ' DoBackupSmartMasters ' END IF ' END IF ' END IF ' END IF ' END IF ' END IF '******Method 2 ********** '*** This method ensures that the dialog will NOT surface during a Language Install '*** And handles some other stuff differently ' Another method taken from LWP.LSS ' Give user option to backup currently installed masters ' ' DIM PrevMasters$ ' IF InstalledLFSVersion$ <> "" AND network$ = gSTANDARD$ AND _ ' direction$ <> gBACK AND _ ' GetListItem(SYM_INSTALLKINDS$, prodno%) <> gLANGUAGEINSTALL$ _ ' THEN ' IF DoesDirExist(GetPreviousMastersDir()) THEN ' IF GetSymbolValue(SYM_AUTOMATIONINST$) = gTRUE$ THEN ' LFSBackupSmartMasters% = Lot_GetKeyValFromResponseFile(_ ' "LFS", "LFSBackupSmartMasters") <> "0" ' ELSE ' chpt$ = Lot_GetChapterFromKeyword("LFS_SMARTMASTERS") ' IF (Lot_GetChapterValInt(chpt$, F_INOROUT) = 1) THEN ' notused% = RegisterCallback("LFS", "LFSBACKUPMASTERSCB") ' direction$ = PopupModalDlg(DBLFS_BACKUPMASTERS, _ ' DBLFS_BACKUPMASTERS) ' END IF ' END IF ' END IF ' END IF ' END FUNCTION '************************************************************************* '** FUNCTION PreCopyConfigLFS (prodno%, network$, direction$, lic%) AS STRING '** '** Purpose: This is the very last function called before the space is '** accurately computed (to the last byte) and files are copied '** by the toolkit. If you have any last minute changes to '** do, this is the time to do them. example: '** Test for monitor resolution, and turn on the chapter '** in the copy list (a memory residident version of the INF file) '** with the appropriate resolution. '** '** This is Where '96 version products should be removed '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** lic%: TRUE | FALSE; TRUE licensing is turned on else it is off '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION PreCopyConfigLFS (prodno%, network$, direction$, lic%) AS STRING DIM ObsProdDir$, installDir$, value$, ProdKey$, cbBuf& DIM rc%, notused%, szProd$, szVer$ RemoveDevAndService ' Remove the device and faxmanager '*** REMOVE PRIOR VERSION '*** This is the product name as found in the registry szProd$ = "LFS" '*** This is the old product version as found in the registry '*** In this case it happens to be the current version! szVer$ = "4.5" ProdKey$ = "Software\Lotus\" + szProd$ +"\" + szVer$ +"\" Value$ = "Path" '***Get the directory for the version to be removed IF Lot_DoesRegKeyExistEx(HKEY_LOCAL_MACHINE, ProdKey$) THEN rc% = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, ProdKey$, _ Value$, REG_DWORD, ObsProdDir$, cbBuf&) '***prepare the 2 paths for a string compare installDir$ = NullTrim(GetSymbolValue(szProd$ + "DIR")) ObsProdDir$ = NullTrim(ObsProdDir$) IF RIGHT$(installDir$,1) <> "\" THEN installDir$ = installDir$ + "\" IF RIGHT$(ObsProdDir$,1) <> "\" THEN ObsProdDir$ = ObsProdDir$ + "\" notused% = StrCompare(installDir$,ObsProdDir$,1) IF StrCompare(installDir$,ObsProdDir$,1) = 0 AND rc% = ERROR_SUCCESS THEN notused% = RemovePriorVersion( szProd$ , szVer$) Else RemoveLFS11 'Remove LFS 1.1 if installed on this machine END IF Else RemoveLFS11 END IF '*** DONE REMOVING PRIOR VERSION PreCopyConfigLFS = gNEXT '//{{PYL_ADDED(SetBillBoardNumber) If network$ <> gNODE Then Reg_SetBillboardNumber prodno%, 3 End If '//}}PYL_ADDED END FUNCTION '************************************************************************* '** FUNCTION AddTheBillBoardsLFS (prodno%, network$, direction$, nbytes&) '** '** Purpose: This is where to add the billboards using the function: '** AddToBillboardList. Use nbytes& as the last parameter to '** the MS-SETUP function AddToBillboardList '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** nbytes: Determines the duration of billboard timing. '** NOTE: Make sure to use billboard Ids that are unique to '** your product. e.g. IDD_LFSBILLBD1_BMP & '** DB_LFSBILLBD1_BMP '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT | gBACK (If you are showing UI and you '** allow the user to step backwards.) '** '************************************************************************* PUBLIC FUNCTION AddTheBillBoardsLFS (prodno%, network$, direction$, nbytes&) AS STRING AddTheBillBoardsLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If 'psudo code follows as an example ''''If network$ <> gNODE$ Then '''' SetListItem "IDC_BMP", 1, STR$(IDD_LFSBILLBD1_BMP) '''' AddToBillboardList GetSymbolValue(SYM_CUIDLL$), DB_LFSBILLBD1, "_FNameOrgDlgProc@16", nbytes& ''''End If '//{{PYL_ADDED(BillBoards) If network$ <> gNODE$ Then SetListItem "IDC_BMP", 1, STR$(IDD_LFSTITLE_BMP) SetListItem "IDC_BMP", 2, STR$(IDD_LFSBILLBD1_BMP) AddToBillboardList GetSymbolValue(SYM_CUIDLL$), DB_LFSBILLBD1, "_FNameOrgDlgProc@16", nbytes& SetListItem "IDC_BMP", 1, STR$(IDD_LFSTITLE_BMP) SetListItem "IDC_BMP", 2, STR$(IDD_LFSBILLBD2_BMP) AddToBillboardList GetSymbolValue(SYM_CUIDLL$), DB_LFSBILLBD2, "_FNameOrgDlgProc@16", nbytes& SetListItem "IDC_BMP", 1, STR$(IDD_LFSTITLE_BMP) SetListItem "IDC_BMP", 2, STR$(IDD_LFSBILLBD3_BMP) AddToBillboardList GetSymbolValue(SYM_CUIDLL$), DB_LFSBILLBD3, "_FNameOrgDlgProc@16", nbytes& ''SetListItem "IDC_BMP", 1, STR$(IDD_LFSTITLE_BMP) ''SetListItem "IDC_BMP", 2, STR$(IDD_LFSBILLBD4_BMP) ''AddToBillboardList GetSymbolValue(SYM_CUIDLL$), DB_LFSBILLBD4, "_FNameOrgDlgProc@16", nbytes& End If '//}}PYL_ADDED END FUNCTION '*************************************************************************** '** Function readOldServerNamesFromRegistry () '** '** Purpose: This is called to read the names of the old DB servers from '** the registry if they exist. '** '** '** '** '** '** '*************************************************************************** FUNCTION readOldServerNamesFromRegistry () DIM szKey$,keyValue$ DIM nSize&,regStatus& DIM gBuf as STRING * 256 DIM tempstr$ DIM length% nSize = 256 szKey$ = gREGLOTUS+"LFS\4.5\System" regStatus = DoesRegKeyExistEx(HKEY_LOCAL_MACHINE,szKey$) If regStatus = 1 Then 'Yes the key exists in the Registry keyValue$ = "AdminServer" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO Admin End If WEND Admin: oldAdminServer$ = Left$(tempStr$,length) keyValue$="FormsServer" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO Forms End If WEND Forms: oldFormsServer$ = Left$(tempStr$,length) keyValue$="TransServer" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO Trans End If WEND Trans: oldTransServer$ = Left$(tempStr$,length) keyValue$="MailServer" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO MailServer End If WEND MailServer: mailServer$ = Left$(tempStr$,length) keyValue$="MailDatabase" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO MailFile End If WEND MailFile: mailFile$ = Left$(tempStr$,length) keyValue$ = "LogServer" regStatus = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szKey$, keyValue$, REG_SZ, gBuf$, nSize) tempStr$ = TRIM$(LCase$(gBUF$)) length=LEN(tempStr$) While asc(MID$(tempStr$,length,1)) = 0 length = length - 1 If length < 1 THEN GOTO LogServer End If WEND LogServer: oldLogServer$ = Left$(tempStr$,length) END IF END FUNCTION '************************************************************************* '** FUNCTION PostCopyConfigLFS (prodno%, network$, direction$, programgroup$) AS STRING '** '** Purpose: This is called just after file copy has completed. '** This is your opportunity to do all the configuaration '** you need. This includes: '** '** 1. Writing to all your ini files '** Don't worry about ini files related to shared components '** 2. Writing to OLE registration database '** Don't worry about OLE registration related to shared '** components '** 3. Writing to any other config files you may support '** 4. Writing out user registration information, '** no matter how your product picks up this info '** 5. Create any working directories '** A working directory is one that does not contain any '** files, thus the toolkit did not create it for you. '** '** NOTE: THERE are many subtleties in here if you are '** dealing with node and CD installs. In particular, '** you must be ***very*** careful to understand where the '** things are that you are pointing to. They could '** be on the node, server, or CD! This, in combination '** with the INF file for Server/Node, is probably the '** trickiest part of writing a quality install. When '** configuring, you must be careful to consider what '** happens if there is a pre-existing product on the '** machine, in the same location or '** another one! This is very very tricky. What happens '** if you had a full installation previously in location C:\FOO '** and now the user is installing a minimum installation in loaction '** D:\FOO. '** '** Each and every thing you do for configuartion needs very '** careful thought. '** '** WE support a function Lot_WhereIsFeature("FeatureID") '** This currrently tells you the location of a feature '** if the feature appears both in the SERVER.INF and the '** NODE.INF referred to by the same Keyword ID. '** We do not support CDs with this command yet, but we will '** at some time. '** '** Also look out for writing to a file when the directory '** doesn't exist. If the user deselected one of your '** options, your install may still be running, but since '** there were no files to copy into the directory '** it wasn't created by the toolkit! '** '** Finally, remember that configuration files generally '** hold the state that the user has customized earlier. '** Sometimes you don't want to overwrite these! '** You will primarily use three MS-SETUP functions '** in here: '** 1. CreateIniKeyValue (writing to ini files) '** 2. SetRegKeyValue (writing to OLE reg DB) '** '** CreateProgmanGroup & ShowProgmanGroup are '** done for you by the time you reach this '** function. '** '** You will not have to do any configuration of LOTUS SHARED '** tools. The toolkit will do this for you. '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** programgroup$: The name of the program group where the user chose to '** install the program manager icons '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT '** '************************************************************************* PUBLIC FUNCTION PostCopyConfigLFS (prodno%, network$, direction$, programgroup$) AS STRING On Error GoTo processError DIM ripath$, ret%, notused%, LFSchpt$, workdir$, queuedir$ DIM dbExists!,dbHasDocs!,areSameServers!,allLocal! ' DIM notallLocal! DIM session As New NotesSession DIM dbLfsAdminNsf As NotesDatabase DIM dbLfsCoverNsf As NotesDatabase DIM dbLfsFaxNsf As NotesDatabase DIM dbLfsFormsNsf As NotesDatabase DIM dbLfsLogNsf As NotesDatabase DIM dbLfsMailNsf As NotesDatabase DIM dbLfsTransNsf As NotesDatabase DIM mailReplica As NotesDatabase DIM dbWebFaxNsf As NotesDatabase DIM msgboxmsg$, msgboxbasemsg$, msgboxtitle$ DIM response As Integer DIM dbLfsTempNsf As NotesDatabase DIM collection As NotesDocumentCollection DIM doc As NotesDocument DIM n As Integer DIM tempdbname As STRING DIM oldPath As STRING DIM newPath As STRING DIM lfsiniPath$ DIM DoReplica As Integer DIM tempMsg$ mailserver$ = "" mailfile$ = "" lfsIniPath$ = GetWindowsDir() + "LFS.INI" ' MessageBox "LFSINIPATH: "+lfsinipath$ if DoesFileExist(lfsIniPath$,femExists) then if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_ADMIN_SERVER") THEN oldadminserver$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_ADMIN_SERVER") ' MessageBox "oldAdminServer: "+oldadminserver$ End If if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_FORM_SERVER") THEN oldformsserver$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_FORM_SERVER") End If if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_MAIL_SERVER") THEN mailserver$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_MAIL_SERVER") End If if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_MAIL_FILE") THEN mailfile$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_MAIL_FILE") End If Else 'read the entries from the registry Call readOldServerNamesFromRegistry() End If PostCopyConfigLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If '**//{{PYL_ADDED(MAILSERVERFILE) if (LEN(mailserver$) < 1) THEN mailserver$ = session.GetEnvironmentString("MailServer", True) mailserver$ = Trim(mailserver$) If mailserver$ = "" Then End if End If if (LEN(mailfile$) < 1) THEN mailfile$ = session.GetEnvironmentString("MailFile", True) mailfile$ = Trim(mailfile$) If mailfile$ = "" Then End if End If maildomain$ = session.GetEnvironmentString("Domain", True) maildomain$ = Trim(maildomain$) If maildomain$ = "" Then End if 'Messagebox("MailServer = " & mailserver$ & "; " &"MailFile = " & mailfile$) admindbname$ = "LfsAdmin.nsf" coverdbname$ = "LfsCover.nsf" faxdbname$ = "LfsFax.nsf" formsdbname$ = "LfsForms.nsf" logdbname$ = "LfsLog.nsf" transdbname$ = "LfsTrans.nsf" ' PKK: (961118) added a temporary DB Name to use for upgrading the DBs also get the notes data directory, we need it. tempdbname$ = "LfsTempDB.nsf" WebFaxdbname$ = "WebFax.nsf" If DoDomino Then notused% = RegisterCallback("LFS", "LFSDOMINONOTESDBCB") Else notused% = RegisterCallback("LFS", "LFSNOTESDBCB") End If SetListItem "IDC_BMP", 1, STR$(IDB_LFSMAIL) SetListItem "IDC_BMP", 2, STR$(IDB_LFSADMIN) ' SetListItem "IDC_BMP", 3, STR$(IDB_LFSCOVER) SetListItem "IDC_BMP", 3, STR$(IDB_LFSFAX) ' SetListItem "IDC_BMP", 5, STR$(IDB_LFSFORMS) ' SetListItem "IDC_BMP", 6, STR$(IDB_LFSLOG) ' SetListItem "IDC_BMP", 7, STR$(IDB_LFSTRANS) If DoDomino Then direction$ = PopupModalDlg (DBLFS_DOMINO_NOTESDB, DBLFS_DOMINO_NOTESDB) Else direction$ = PopupModalDlg (DB_LFS_NOTESDB, DB_LFS_NOTESDB) End If If direction$ = gBACK Then QUIT End If '**//}}PYL_ADDED DIM dbLfsAdminNtf As New NotesDatabase("","LFSAdmin.ntf") DIM dbLfsCoverNtf As New NotesDatabase("","LFSCover.ntf") DIM dbLfsFaxNtf As New NotesDatabase("","LFSFax.ntf") DIM dbLfsFormsNtf As New NotesDatabase("","LFSForms.ntf") DIM dbLfsLogNtf As New NotesDatabase("","LFSLog.ntf") DIM dbLfsMailNtf As New NotesDatabase("","LFSMail.ntf") DIM dbLfsTransNtf As New NotesDatabase("","LFSTrans.ntf") DIM dbWebFaxNtf As New NotesDatabase("","WebFax.ntf") ' MessageBox "Title and FileName: " & dblfsadminntf.title & ", " & dblfsadminntf.FileName '**//{{PYL_ADDED(CREATENOTESDB) ' PKK (961118: Modified the message box text) ' msgboxbasemsg$ = " already exists. "+ _ ' "Do you wish to overwrite the existing Database? "+ _ ' "Click ""YES"" to overwrite, ""NO"" to upgrade to new version, ""CANCEL"" to keep the existing Database." ' msgboxtitle$ = "Creating Notes Database ..." '******************************************************************************************************************** ' Creating Admin Database ?On Domino Server? '******************************************************************************************************************** dbExists = False dbHasDocs = False allLocal = False oldadminserver$ = TRIM$(oldadminserver$) adminserver$ = TRIM$(adminserver$) tempMsg$ = "oldAdminServer:" & oldadminserver$ & "; adminserver:" & adminserver$ ' MessageBox tempMsg areSameServers = Not StrCompare (oldadminserver$, adminserver$,1) '****New Policy for upgrade,Since it is impossible for us to know whether the two machines are same when one of the two '****servers is local, we will always set the areSameServers flag to be true if one of the two servers is local. if (oldadminserver$ = "") and (adminserver$ = "") THEN allLocal = True ElseIf (oldadminserver$ = "") or (adminserver$ = "") THEN areSameServers = TRUE End If '**** Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") '**** open the databaseon the old server, if open then set the flags Set dbLfsAdminNsf = New NotesDatabase(oldadminserver$, admindbname$) If dbLfsAdminNsf.IsOpen Then dbExists = True If dbLfsAdminNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If ELSE Set dbLfsAdminNsf = New NotesDatabase(adminserver$, admindbname$) If dbLfsAdminNsf.IsOpen Then dbExists = True If dbLfsAdminNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If End If ' MessageBox "dbExists = "+str(dbExists)+"; dbHasDocs"+str(dbHasDocs)+"; areSameServers"+str(areSameServers) '**** If DB does not exist then create a new one on the new server ans we are done. If Not dbExists Then '**** There maybe a file with the same already on the machine, if so delete it first. Set dbLfsAdminNsf = New NotesDatabase(adminserver$,admindbname$) If dbLfsAdminNsf.IsOpen Then Call dbLfsAdminNsf.Remove End If Set dbLfsAdminNsf = dbLfsAdminNtf.CreateFromTemplate(adminserver$, admindbname$, True) dbLfsAdminNsf.Title = adminTitle$ '**** done Else '**** This is the messy part, check if the db has docs otherwise it is simpler If Not dbHasDocs Then Set dbLfsAdminNsf = New NotesDatabase(adminserver$, admindbname$) If dbLfsAdminNsf.IsOpen Then Call dbLfsAdminNsf.Remove End If Set dbLfsAdminNsf = dbLfsAdminNtf.CreateFromTemplate(adminserver$, admindbname$, True) dbLfsAdminNsf.Title = "DFS Administration Database" '**** done Else '**** has docs If areSameServers Then '**** use 3 button dialog box. NameOfDBToUpgrade$ = admindbname$ if LEN(adminserver$) > 0 THEN ServerOfDBtoUpgrade$ = adminserver$ Else ServerOfDBtoUpgrade$ = "Local" End If direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then 'User says overwrite the database Call dbLfsAdminNsf.Remove Set dbLfsAdminNsf = New NotesDatabase(adminserver$, admindbname$) If dbLfsAdminNsf.IsOpen Then Call dbLfsAdminNsf.Remove End If Set dbLfsAdminNsf = dbLfsAdminNtf.CreateFromTemplate(adminserver$, admindbname$, True) dbLfsAdminNsf.Title = adminTitle$ ElseIf response = doUpgrade Then ' We need to create a temp DB, copy all documents from the old DB, delete the old DB and then rename the temp db If Not allLocal Then '**** We are doing it on the server Call CreateDBOnServerAndCopyDocs(dbLfsAdminNtf,dbLfsAdminNsf,oldadminserver$,adminserver$,_ adminTitle$,admindbname$) Else '**** all local operation Call CreateDBandCopyDocs(dbLfsAdminNtf,dbLfsAdminNsf,adminTitle$,admindbname$) End If End If Else '**** servers are different, use 2 button dialog box NameOfDBToUpgrade$ = admindbname$ ServerOfDBtoUpgrade$ = oldadminserver$ newServerName$ = adminserver$ direction$ = PopupModalDlg(DB_Create_Notes_DB_2Servers,DB_Create_Notes_DB_2Servers) response = DBUpgradeOverwriteCancel% If response = doBring Then 'bring forward the documents Call CreateDBOnServerAndCopyDocs(dbLfsAdminNtf,dbLfsAdminNsf,oldadminserver$,adminserver$,_ adminTitle$,admindbname$) Else '**** create a new Db on the new server and done. Set dbLfsAdminNsf = New NotesDatabase(adminserver$, admindbname$) If dbLfsAdminNsf.IsOpen Then Call dbLfsAdminNsf.Remove End If Set dbLfsAdminNsf = dbLfsAdminNtf.CreateFromTemplate(adminserver$, admindbname$, True) dbLfsAdminNsf.Title = adminTitle$ End If '**** done End If '**** areSameServers End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsAdminNsf,ACLLEVEL_MANAGER,ACLLEVEL_NOACCESS EnableRoles dbLfsAdminNsf,"DominoFaxAdmin",ACLLEVEL_MANAGER,"FaxAdmin" EnableRoles dbLfsAdminNsf,"DominoFaxUsers",ACLLEVEL_MANAGER,"FaxUsers" '******************************************************************************************************************** ' Creating Forms Database ?On Domino Server? '******************************************************************************************************************** dbExists = False dbHasDocs = False allLocal = False oldformsserver$ = TRIM$(oldformsserver$) formsserver$ = TRIM$(formsserver$) areSameServers = Not StrCompare (oldformsserver$, formsserver$,1) '****New Policy for upgrade,Since it is impossible for us to know whether the two machines are same when one of the two '****servers is local, we will always set the areSameServers flag to be true if one of the two servers is local. if (oldformsserver$ = "") and (formsserver$ = "") THEN allLocal = True ElseIf (oldformsserver$ = "") or (formsserver$ = "") THEN areSameServers = TRUE End If ' MessageBox "Length = " & Str(LEN(oldformsserver$)) & "; oldservername = " & oldformsserver$ ' MessageBox "Length = " & Str(LEN(formsserver$)) & "; servername = " & formsserver$ ' MessageBox "allLocal = " & Str(allLocal) & "; areSameServers = " & Str(areSameServers) '**** Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") '**** open the database on the old server, if open then set the flags Set dbLfsFormsNsf = New NotesDatabase(oldformsserver$, formsdbname$) If dbLfsFormsNsf.IsOpen Then dbExists = True If dbLfsFormsNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If Call dbLfsFormsNsf.close ' MessageBox "dbExists = "+str(dbExists)+"; dbHasDocs"+str(dbHasDocs)+"; areSameServers"+str(areSameServers) '**** If DB does not exist then create a new one on the new server ans we are done. If Not dbExists Then '**** There maybe a file with the same already on the machine, if so delete it first. Set dbLfsFormsNsf = New NotesDatabase(formsserver$,formsdbname$) If dbLfsFormsNsf.IsOpen Then Call dbLfsFormsNsf.Remove End If Set dbLfsFormsNsf = dbLfsFormsNtf.CreateFromTemplate(formsserver$, formsdbname$, True) dbLfsFormsNsf.Title = "DFS Forms Database" '**** done Else '**** This is the messy part, check if the db has docs otherwise it is simpler If Not dbHasDocs Then Set dbLfsFormsNsf = New NotesDatabase(formsserver$, formsdbname$) If dbLfsFormsNsf.IsOpen Then Call dbLfsFormsNsf.Remove End If Set dbLfsFormsNsf = dbLfsFormsNtf.CreateFromTemplate(formsserver$, formsdbname$, True) dbLfsFormsNsf.Title = "DFS Forms Database" '**** done Else '**** has docs Set dbLfsFormsNsf = New NotesDatabase(oldformsserver$, formsdbname$) If areSameServers Then '**** use 3 button dialog box. NameOfDBToUpgrade$ = formsdbname$ if LEN(formsserver$) > 0 THEN ServerOfDBtoUpgrade$ = formsserver$ Else ServerOfDBtoUpgrade$ = "Local" End If direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then 'User says overwrite the database Call dbLfsFormsNsf.Remove Set dbLfsFormsNsf = dbLfsFormsNtf.CreateFromTemplate(formsserver$, formsdbname$, True) dbLfsFormsNsf.Title = "DFS Forms Database" ElseIf response = doUpgrade Then ' We need to create a temp DB, copy all documents from the old DB, delete the old DB and then rename the temp db If NOT allLocal Then '**** We are doing it on the server Call CreateDBOnServerAndCopyDocs(dbLfsFormsNtf,dbLfsFormsNsf,oldformsserver$,formsserver$,_ "DFS Forms Database",formsdbname$) Else '**** all local operation Call CreateDBandCopyDocs(dbLfsFormsNtf,dbLfsFormsNsf,"DFS Forms Database",formsdbname$) End If End If Else '**** servers are different, use 2 button dialog box NameOfDBToUpgrade$ = formsdbname$ ServerOfDBtoUpgrade$ = oldformsserver$ newServerName$ = formsserver$ direction$ = PopupModalDlg(DB_Create_Notes_DB_2Servers,DB_Create_Notes_DB_2Servers) response = DBUpgradeOverwriteCancel% If response = doBring Then 'bring forward the documents Call CreateDBOnServerAndCopyDocs(dbLfsFormsNtf,dbLfsFormsNsf,oldformsserver$,formsserver$,_ "DFS Forms Database",formsdbname$) Else '**** create a new Db on the new server and done. Set dbLfsFormsNsf = New NotesDatabase(formsserver$, formsdbname$) If dbLfsFormsNsf.IsOpen Then Call dbLfsFormsNsf.Remove End If Set dbLfsFormsNsf = dbLfsFormsNtf.CreateFromTemplate(formsserver$, formsdbname$, True) dbLfsFormsNsf.Title = "DFS Forms Database" End If '**** done End If '**** areSameServers End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsFormsNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER '******************************************************************************************************************** ' Creating Log Database ?On Domino Server? '******************************************************************************************************************** dbExists = False dbHasDocs = False allLocal = False oldlogserver$ = TRIM$(oldlogserver$) logserver$ = TRIM$(logserver$) areSameServers = Not StrCompare (oldlogserver$, logserver$,1) '****New Policy for upgrade,Since it is impossible for us to know whether the two machines are same when one of the two '****servers is local, we will always set the areSameServers flag to be true if one of the two servers is local. if (oldlogserver$ = "") and (logserver$ = "") THEN allLocal = True ElseIf (oldlogserver$ = "") or (logserver$ = "") THEN areSameServers = TRUE End If ' MessageBox "Length = " & Str(LEN(oldlogserver$)) & "; oldservername = " & oldlogserver$ ' MessageBox "Length = " & Str(LEN(logserver$)) & "; servername = " & logserver$ ' MessageBox "allLocal = " & Str(allLocal) & "; areSameServers = " & Str(areSameServers) ' notallLocal = NOT allLocal ' MessageBox "oldlogserver " & oldlogServer$ ' MessageBox " logserver " & logserver$ ' MessageBox " allLocal " & str(allLocal) ' MessageBox "; not alllocal" & str(notalllocal) '**** Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") '**** open the databaseon the old server, if open then set the flags Set dbLfsLogNsf = New NotesDatabase(oldlogserver$, logdbname$) If dbLfsLogNsf.IsOpen Then dbExists = True If dbLfsLogNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If ' MessageBox "dbExists = "+str(dbExists)+"; dbHasDocs"+str(dbHasDocs)+"; areSameServers"+str(areSameServers) '**** If DB does not exist then create a new one on the new server ans we are done. If Not dbExists Then '**** There maybe a file with the same already on the machine, if so delete it first. Set dbLfsLogNsf = New NotesDatabase(logserver$,logdbname$) If dbLfsLogNsf.IsOpen Then Call dbLfsLogNsf.Remove End If Set dbLfsLogNsf = dbLfsLogNtf.CreateFromTemplate(logserver$, logdbname$, True) dbLfsLogNsf.Title = "DFS Log Database" '**** done Else '**** This is the messy part, check if the db has docs otherwise it is simpler If Not dbHasDocs Then Set dbLfsLogNsf = New NotesDatabase(logserver$, logdbname$) If dbLfsLogNsf.IsOpen Then Call dbLfsLogNsf.Remove End If Set dbLfsLogNsf = dbLfsLogNtf.CreateFromTemplate(logserver$, logdbname$, True) dbLfsLogNsf.Title = "DFS Log Database" '**** done Else '**** has docs If areSameServers Then '**** use 3 button dialog box. NameOfDBToUpgrade$ = logdbname$ if LEN(logserver$) > 0 THEN ServerOfDBtoUpgrade$ = logserver$ Else ServerOfDBtoUpgrade$ = "Local" End If direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then 'User says overwrite the database Call dbLfsLogNsf.Remove Set dbLfsLogNsf = dbLfsLogNtf.CreateFromTemplate(logserver$, logdbname$, True) dbLfsLogNsf.Title = "DFS Log Database" ElseIf response = doUpgrade Then ' We need to create a temp DB, copy all documents from the old DB, delete the old DB and then rename the temp db If LEN(logserver$) > 0 Then '**** We are doing it on the server Call CreateDBOnServerAndCopyDocs(dbLfsLogNtf,dbLfsLogNsf,oldlogserver$,logserver$,_ "DFS Log Database",logdbname$) Else '**** all local operation Call CreateDBandCopyDocs(dbLfsLogNtf,dbLfsLogNsf,"DFS Log Database",logdbname$) End If End If Else '**** servers are different, use 2 button dialog box NameOfDBToUpgrade$ = logdbname$ ServerOfDBtoUpgrade$ = oldlogserver$ newServerName$ = logserver$ direction$ = PopupModalDlg(DB_Create_Notes_DB_2Servers,DB_Create_Notes_DB_2Servers) response = DBUpgradeOverwriteCancel% If response = doBring Then 'bring forward the documents Call CreateDBOnServerAndCopyDocs(dbLfsLogNtf,dbLfsLogNsf,oldlogserver$,logserver$,_ "DFS Log Database",logdbname$) Else '**** create a new Db on the new server and done. Set dbLfsLogNsf = New NotesDatabase(logserver$, logdbname$) If dbLfsLogNsf.IsOpen Then Call dbLfsLogNsf.Remove End If Set dbLfsLogNsf = dbLfsLogNtf.CreateFromTemplate(logserver$, logdbname$, True) dbLfsLogNsf.Title = "DFS Log Database" End If '**** done End If '**** areSameServers End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsLogNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER '******************************************************************************************************************** ' Creating Phone Translation Database ?On Domino Server? '******************************************************************************************************************** dbExists = False dbHasDocs = False allLocal = False oldtransserver$ = TRIM$(oldtransserver$) transserver$ = TRIM$(transserver$) areSameServers = Not StrCompare (oldtransserver$, transserver$,1) '****New Policy for upgrade,Since it is impossible for us to know whether the two machines are same when one of the two '****servers is local, we will always set the areSameServers flag to be true if one of the two servers is local. ' MessageBox "Length = " & Str(LEN(oldtransserver$)) & "; oldservername = " & oldtransserver$ ' MessageBox "Length = " & Str(LEN(transserver$)) & "; servername = " & transserver$ ' MessageBox "allLocal = " & Str(allLocal) & "; areSameServers = " & Str(areSameServers) areSameServers = Not StrCompare (oldtransserver$, transserver$,1) if (oldtransserver$ = "") and (transserver$ = "") THEN allLocal = True ElseIf (oldtransserver$ = "") or (transserver$ = "") THEN areSameServers = TRUE End If '**** Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") '**** open the databaseon the old server, if open then set the flags Set dbLfsTransNsf = New NotesDatabase(oldtransserver$, transdbname$) If dbLfsTransNsf.IsOpen Then dbExists = True If dbLfsTransNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If '**** If DB does not exist then create a new one on the new server ans we are done. If Not dbExists Then '**** There maybe a file with the same already on the machine, if so delete it first. Set dbLfsTransNsf = New NotesDatabase(transserver$,transdbname$) If dbLfsTransNsf.IsOpen Then Call dbLfsTransNsf.Remove End If Set dbLfsTransNsf = dbLfsTransNtf.CreateFromTemplate(transserver$, transdbname$, True) dbLfsTransNsf.Title = phoneTitle$ '**** done Else '**** This is the messy part, check if the db has docs otherwise it is simpler If Not dbHasDocs Then Set dbLfsTransNsf = New NotesDatabase(transserver$, transdbname$) If dbLfsTransNsf.IsOpen Then Call dbLfsTransNsf.Remove End If Set dbLfsTransNsf = dbLfsTransNtf.CreateFromTemplate(transserver$, transdbname$, True) dbLfsTransNsf.Title = phoneTitle$ '**** done Else '**** has docs ' MessageBox "areSameServers = "+str(areSameServers) If areSameServers Then '**** use 3 button dialog box. NameOfDBToUpgrade$ = transdbname$ if LEN(transserver$) > 0 THEN ServerOfDBtoUpgrade$ = transserver$ Else ServerOfDBtoUpgrade$ = "Local" End If ' MessageBox "3-Button, SameServers" direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then 'User says overwrite the database Call dbLfsTransNsf.Remove Set dbLfsTransNsf = dbLfsTransNtf.CreateFromTemplate(transserver$, transdbname$, True) dbLfsTransNsf.Title = phoneTitle$ ElseIf response = doUpgrade Then ' We need to create a temp DB, copy all documents from the old DB, delete the old DB and then rename the temp db If LEN(transserver$) > 0 Then '**** We are doing it on the server ' MessageBox "upgrading on server" Call CreateDBOnServerAndCopyDocs(dbLfsTransNtf,dbLfsTransNsf,oldtransserver$,transserver$,_ phoneTitle$,transdbname$) Else '**** all local operation ' MessageBox "upgrading on local" Call CreateDBandCopyDocs(dbLfsTransNtf,dbLfsTransNsf,phoneTitle$,transdbname$) End If End If Else '**** servers are different, use 2 button dialog box NameOfDBToUpgrade$ = transdbname$ ServerOfDBtoUpgrade$ = oldtransserver$ newServerName$ = transserver$ ' MessageBox "2-Button, different srvers: "+oldtransserver$+transserver$ direction$ = PopupModalDlg(DB_Create_Notes_DB_2Servers,DB_Create_Notes_DB_2Servers) response = DBUpgradeOverwriteCancel% If response = doBring Then 'bring forward the documents Call CreateDBOnServerAndCopyDocs(dbLfsTransNtf,dbLfsTransNsf,oldtransserver$,transserver$,_ phoneTitle$,transdbname$) Else '**** create a new Db on the new server and done. Set dbLfsTransNsf = New NotesDatabase(transserver$, transdbname$) If dbLfsTransNsf.IsOpen Then Call dbLfsTransNsf.Remove End If Set dbLfsTransNsf = dbLfsTransNtf.CreateFromTemplate(transserver$, transdbname$, True) dbLfsTransNsf.Title = phoneTitle$ End If '**** done End If '**** areSameServers End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsTransNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER '******************************************************************************************************************** ' Creating Fax Engine Queue Database '******************************************************************************************************************** dbExists = False dbHasDocs = False Set dbLfsFaxNsf = New NotesDatabase("", faxdbname$) If dbLfsFaxNsf.IsOpen Then dbExists = True If dbLfsFaxNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If ' Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") If Not dbExists Then Set dbLfsFaxNsf = dbLfsFaxNtf.CreateFromTemplate("", faxdbname$, True) dbLfsFaxNsf.Title = "DFS Fax Engine Queue Database" Else If Not dbHasDocs Then Call dbLfsFaxNsf.Remove Set dbLfsFaxNsf = dbLfsFaxNtf.CreateFromTemplate("", faxdbname$, True) dbLfsFaxNsf.Title = "DFS Fax Engine Queue Database" Else NameOfDBToUpgrade$ = faxdbname$ ServerOfDBtoUpgrade$ = "Local" direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then Call dbLfsFaxNsf.Remove Set dbLfsFaxNsf = dbLfsFaxNtf.CreateFromTemplate("", faxdbname$, True) dbLfsFaxNsf.Title = "DFS Fax Engine Queue Database" ElseIf response = doUpgrade Then ' upgrade Call CreateDBandCopyDocs(dbLfsFaxNtf, dbLfsFaxNsf,"DFS Fax Engine Queue Database",faxdbname$) End If '**** response = ? End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsFaxNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER '******************************************************************************************************************** ' Creating Cover Page Database '******************************************************************************************************************** dbExists = False dbHasDocs = False Set dbLfsCoverNsf = New NotesDatabase("", coverdbname$) If dbLfsCoverNsf.IsOpen Then dbExists = True If dbLfsCoverNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If ' Register the callback for the confirmation dialog box for DB to be upgraded ort overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") If Not dbExists Then Set dbLfsCoverNsf = dbLfsCoverNtf.CreateFromTemplate("", coverdbname$, True) dbLfsCoverNsf.Title = "DFS Cover Page Database" Else If Not dbHasDocs Then Call dbLfsCoverNsf.Remove Set dbLfsCoverNsf = dbLfsCoverNtf.CreateFromTemplate("", coverdbname$, True) dbLfsCoverNsf.Title = "DFS Cover Page Database" Else NameOfDBToUpgrade$ = coverdbname$ ServerOfDBtoUpgrade$ = "Local" direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then Call dbLfsCoverNsf.Remove Set dbLfsCoverNsf = dbLfsCoverNtf.CreateFromTemplate("", coverdbname$, True) dbLfsCoverNsf.Title = "DFS Cover Page Database" ElseIf response = doUpgrade Then ' upgrade Call CreateDBandCopyDocs(dbLfsCoverNtf, dbLfsCoverNsf,"DFS Cover Page Database",coverdbname$) End If '**** response = ? End If '**** dbHasDocs End If '**** dbExists SetAccessLevels dbLfsCoverNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER '******************************************************************************************************************** ' Creating Mail Database '******************************************************************************************************************** dbExists = False dbHasDocs = False tempMailFile$ = "temp"+mailfile$ Set dbLfsMailNsf = New NotesDatabase(mailserver$, mailfile$) If dbLfsMailNsf.IsOpen Then dbExists = True If dbLfsMailNsf.AllDocuments.Count > 0 Then dbHasDocs = True End If End If '**** Register the callback for the confirmation dialog box for DB to be upgraded or overwritten notused% = RegisterCallback("LFS", "LFSNotesDBUpgradeCB") If Not dbExists Then Set dbLfsMailNsf = dbLfsMailNtf.CreateFromTemplate(mailserver$, mailfile$, True) dbLfsMailNsf.Title = "DFS Mail Database" Else If Not dbHasDocs Then Call dbLfsMailNsf.Remove Set dbLfsMailNsf = dbLfsMailNtf.CreateFromTemplate(mailserver$, mailfile$, True) dbLfsMailNsf.Title = "DFS Mail Database" Else NameOfDBToUpgrade$ = mailfile$ ServerOfDBtoUpgrade$ = mailserver direction$ = PopupModalDlg(DB_Create_Notes_DB,DB_Create_Notes_DB) response = DBUpgradeOverwriteCancel% If response = doOverwrite Then Call dbLfsMailNsf.Remove Set dbLfsMailNsf = dbLfsMailNtf.CreateFromTemplate(mailserver$, mailfile$, True) dbLfsMailNsf.Title = "DFS Mail Database" ElseIf response = doUpgrade Then ' upgrade Set mailReplica = New NotesDatabase(mailserver$, tempMailFile$) If mailReplica.IsOpen Then Call mailReplica.Remove End If Set mailReplica = dbLfsMailNsf.CreateReplica(mailserver$, tempMailFile$) Set collection = mailReplica.AllDocuments Call dbLfsMailNsf.Remove Set dbLfsMailNsf = dbLfsMailNtf.CreateFromTemplate(mailserver$, mailfile$, True) dbLfsMailNsf.Title = "DFS Mail Database" For n = 1 To collection.Count Set doc = collection.GetNthDocument(n) Call doc.CopyToDatabase(dbLfsMailNsf) Next Call mailReplica.Remove End If '**** response ? End If '**** dbHasDocs End If '**** dbExists '******************************************************************************************************************** ' Creating WebFax Database On Domino Server '******************************************************************************************************************** If DoDomino Then Set dbWebFaxNsf = New NotesDatabase(dominoserver$, webFaxdbname$) ' No need to ask the user whether they wish to upgrade the database, since there is nothingthey can customize in this db ' MessageBox "WebFax Title = "+dbWebFaxNsf.Title If len(dbWebFaxNsf.Title) > 0 Then ' MessageBox "WebFax Title = "+dbWebFaxNsf.Title Call dbWebFaxNsf.Remove End If Set dbWebFaxNsf = dbwebFaxNtf.CreateFromTemplate(dominoserver$, webfaxdbname$, True) SetAccessLevels dbWebFaxNsf,ACLLEVEL_MANAGER,ACLLEVEL_MANAGER EnableRoles dbWebFaxNsf,"DominoFaxAdmin",ACLLEVEL_MANAGER,"FaxAdmin" EnableRoles dbWebFaxNsf,"DominoFaxUsers",ACLLEVEL_MANAGER,"FaxUsers" dbWebFaxNsf.Title = "Domino Fax Server Database" End If '******************************************************************************************************************** ' Done Creating Databases '******************************************************************************************************************** If network$ <> gNODE$ Then SetSymbolValue SYM_CDDRIVE$, GetSymbolValue(SYM_INSTALL_SOURCE) End If ''** WRITE TO RI FILE ''******************* ripath$ = GetSymbolValue("LFSDIR") + "LFS.ri" If Lot_WriteToRiFile (ripath$) = FALSE Then '*** SHOULD BE RESOURCED STRING ErrorMsg SID_LFS,LdString(SID_LFS_ERR_RI) + ripath$ End If If network$ = gSERVER$ OR network$ = gDISTRIBUTION Then GOTO SKIPCONFIG End If '** Write product specific registry keys AddRegistryKeysLFS prodno%, network$ '** Write entries in win.ini '** Write entries in lfs.ini '** Log the product into \windows\lotus.ini '** Write the OLE registration '** Only write this stuff if program files installed LFSchpt$ = Lot_GetChapterFromKeyWord ("LFSTOP") IF (Lot_GetChapterValInt(LFSchpt$, F_INOROUT) = 1) THEN '** Write the OLE registration database ret% = Lot_WriteOLERegForLFS(network$, prodno%) END IF '**//{{PYL_ADDED(CREATE_QUEUE_DIR) '** Create queue directory for standard and node workdir$ = GetSymbolValue("LFSDIR") queuedir$ = MakePath(workdir$, "queue") IF DoesDirExist(queuedir$)=0 THEN CreateDir queuedir$, cmoNone END IF IF DoesDirExist(queuedir$)=0 THEN ShowPathError SID_ERR_CREATEDIR, 0, queuedir$ END IF '**//}}PYL_ADDED '** Create work directory for standard and node ''''' workdir$ = GetSymbolValue("123WORKDIR") ''''' CreateDir workdir$, cmoNone ''''' IF DoesDirExist(workdir$)=0 THEN ''''' ShowPathError SID_ERR_CREATEDIR, 0, workdir$ ''''' END IF '** Write the uninstaller - but only for the primary language If GetSymbolValue(SYM_INSTALLKIND$) <> gLANGUAGEINSTALL$ Then ' ' Hardcoded the product name to be LFS because of the LFS vs DFS confusion ' in this release. Should clean up in the next release. ' ' notused%=Lot_RegisterUninstaller(LdString(SID_LFS_PROD_NAME),_ ' LdString(SID_LFS_PROD_VER),_ ' "Lotus Notes Fax Server 4.5", _ ' GetSymbolValue("LFSDIR")+"lfs.inf",_ ' TRUE,FALSE,_ ' GetSymbolValue(SYM_INSTALL_LANGUAGE$),_ ' "c:\uninst.log","",_ ' "ME the user") notused%=Lot_RegisterUninstaller("LFS",_ LdString(SID_LFS_PROD_VER),_ "Lotus Notes Fax Server 4.5", _ GetSymbolValue("LFSDIR")+"lfs.inf",_ TRUE,FALSE,_ GetSymbolValue(SYM_INSTALL_LANGUAGE$),_ "c:\uninst.log","",_ "ME the user") End If SKIPCONFIG: EXIT FUNCTION processError: MessageBox Err() & ":" & Error() & chr(10) & "This error occurred on Line number " & Erl() & " while creating the DFS databases." Error STFQUIT END FUNCTION '************************************************************************* '** SUB SetAccessLevels '************************************************************************* SUB SetAccessLevels(newdb As NotesDatabase,defACL%,anonymACL%) DIM acl As NotesACL DIM firstEntry As NotesACLEntry ' This will be the default entry Set acl = newdb.ACL Set firstEntry = acl.GetFirstEntry firstEntry.Level = defACL Call acl.CreateACLEntry("Anonymous",AnonymACL) Call acl.Save END SUB '************************************************************************* '** SUB EnableRoles '************************************************************************* SUB EnableRoles(newdb As NotesDatabase,person AS STRING, acllevel%, role AS STRING) DIM acl As NotesACL Set acl = newdb.ACL DIM user As New NotesACLEntry(acl, person, acllevel%) Call user.EnableRole(role) Call acl.Save END SUB '************************************************************************* '** SUB CreateDBandCopyDocs '************************************************************************* SUB CreateDBandCopyDocs(newTemplate As NotesDatabase, currentDB As NotesDatabase, title$, filename$) On Error GoTo processError DIM session As New NotesSession DIM dbLfsTempNsf As NotesDatabase DIM collection As NotesDocumentCollection DIM dc As NotesDocumentCollection DIM doc As NotesDocument DIM n As Integer DIM tempdbname As STRING DIM dataDirectory As STRING DIM searchString As String DIM dateTime As New NotesDateTime("01/01/80") DIM view As NotesView DIM server DIM tempDB As NotesDatabase tempdbname$ = "DfsTempDB.nsf" dataDirectory$ = session.GetEnvironmentString("Directory",True) + "\" Set collection = currentDB.AllDocuments Set tempDB = New NotesDatabase("", "DfsTempDB.nsf") If tempDB.IsOpen Then tempDB.Remove Set tempDB = New NotesDatabase("", "DfsTempDB.nsf") If tempDB.IsOpen Then tempDB.Remove End If End If Set dbLfsTempNsf = newTemplate.CreateFromTemplate("", tempdbname$, True) dbLfsTempNsf.Title = title$ ' MessageBox "Phone Title= "+phoneTitle$ ' MessageBox "Title = "+title$ If StrCompare(title$,adminTitle$,1) = 0 Then searchString$ = "Form = ""DefaultUserProfile""" Set dc = currentDB.Search(searchString,dateTime,0) If (dc.Count > 0) Then 'delete the default user Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("3. User Profiles\Default User") Set doc = view.GetFirstDocument Call doc.Remove(True) End If searchString$ = "Form = ""System Configuration""" Set dc = currentDB.Search(searchString, dateTime,0) If (dc.Count > 0) Then 'delete the System Configuration Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("2. Configuration\System Configuration Profile") Set doc = view.GetFirstDocument Call doc.Remove(True) End If ElseIf StrCompare(title$,phoneTitle$,1) = 0 Then ' MessageBox "doing Phone Translation Database" searchString$ = "Form = ""Delay Character""" Set dc = currentDB.Search(searchString,dateTime,0) If (dc.Count > 0) Then ' MessageBox "We found an existing Delay Character Document...deleting" 'delete the default user Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("Delay Character") Set doc = view.GetFirstDocument Call doc.Remove(True) End If End If For n = 1 To collection.Count Set doc = collection.GetNthDocument(n) Call doc.CopyToDatabase(dbLfsTempNsf) Next 'remove the currentDb and then rename the file. Call dbLfsTempNsf.close Call currentDB.Remove Name (dataDirectory$+tempdbname$) As (dataDirectory$+filename$) Set currentDB = New NotesDatabase("",filename$) EXIT SUB processError: MessageBox Err() & ":" & Error() & chr(10) & "This error occurred on Line number " & Erl() & " while creating the DFS databases." Error STFQUIT END SUB '************************************************************************* '** SUB CreateDBOnServerAndCopyDocs '** This subroutine is called when '************************************************************************* SUB CreateDBOnServerAndCopyDocs(newTemplate As NotesDatabase, currentDB As NotesDatabase,_ oldserver$, newserver$, title$, filename$) On Error GoTo processError DIM session As New NotesSession DIM dbLfsTempNsf As NotesDatabase DIM tempReplica As NotesDatabase DIM collection As NotesDocumentCollection DIM dc As NotesDocumentCollection DIM doc As NotesDocument DIM n As Integer DIM tempdbname As STRING DIM dataDirectory As STRING DIM searchString As String DIM dateTime As New NotesDateTime("01/01/80") DIM view As NotesView DIM DoReplica As Integer DIM tempDb As NotesDatabase Set collection = currentDB.AllDocuments ' If there are any documents in the current database then Make a replica of the database, ' delete the original, create the new db, copy all documents. DoReplica% = collection.Count > 0 If DoReplica% Then Set tempDB = New NotesDatabase(newserver$, "DfsTempDB.nsf") If tempDB.IsOpen Then tempDB.Remove End If Set tempReplica = currentDB.CreateReplica(newserver$, "DfsTempDB.nsf") Set collection = tempReplica.AllDocuments End If ' We may have problem deleting the database, let us close it and open it agin and then remove it. ' currentDB.Close ' Set currentDB=New NotesDatabase(newserver$, filename$) ' if currentDB.IsOpen() Then ' MessageBox "we have successfully reopened the database" ' End If Call currentDB.Remove Set dbLfsTempNsf = newTemplate.CreateFromTemplate(newserver$, filename$, False) dbLfsTempNsf.Title = title$ dbLfsTempNsf.Title = title$ If StrCompare(title$,adminTitle$,1) = 0 Then searchString$ = "Form = ""DefaultUserProfile""" Set dc = tempReplica.Search(searchString,dateTime,0) If (dc.Count > 0) Then 'delete the default user Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("3. User Profiles\Default User") Set doc = view.GetFirstDocument Call doc.Remove(True) End If searchString$ = "Form = ""System Configuration""" Set dc = tempReplica.Search(searchString, dateTime,0) If (dc.Count > 0) Then 'delete the System Configuration Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("2. Configuration\System Configuration Profile") Set doc = view.GetFirstDocument Call doc.Remove(True) End If ElseIf StrCompare(title$,phoneTitle$,1) = 0 Then searchString$ = "Form = ""Delay Character""" Set dc = tempReplica.Search(searchString,dateTime,0) If (dc.Count > 0) Then 'delete the default user Profile doc from the newly created DB Set view = dbLfsTempNsf.GetView("Delay Character") Set doc = view.GetFirstDocument Call doc.Remove(True) End If End If ' ****************** If DoReplica Then Set collection = tempReplica.AllDocuments For n = 1 To collection.Count Set doc = collection.GetNthDocument(n) Call doc.CopyToDatabase(dbLfsTempNsf) Next Call tempReplica.Remove End If ' assign the newly created database to currentDB SET currentDB = New NotesDatabase(newserver$, filename$) ' ******************* EXIT SUB processError: MessageBox Err() & ":" & Error() & chr(10) & "This error occurred on Line number " & Erl() & " while creating the DFS databases." Error STFQUIT END SUB '************************************************************************* '** PUBLIC SUB AddRegistryKeysLFS (prodno%, network$) '** '** Purpose: This is called just after file copy has completed. '** 1. Add product specific Registry Keys. '** '** Each and every thing you do for configuartion needs very '** careful thought. '** '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** programgroup$: The name of the program group where the user chose to '** install the program manager icons '** '** Errors: No return code for errors, you must Raise them '** Author: PMD '** '************************************************************************* PUBLIC SUB AddRegistryKeysLFS (prodno%, network$) DIM LocPath$, Filename$, descript$, gbuf$, instvalue& DIM szkey$, szkey2$, nsize&, nsize1&,nsize2&,Insttype$,nsize3 DIM RegStatus&, keyvalue$, keyvalue1$,keyvalue2$, keyvalue3$, keyvalue4$ DIM session As New NotesSession '**//{{PYL_ADDED(ADDEDSUBKEY) DIM szSubKey1$, szSubKey2$ DIM locPath1$, nsizeLocPath1 DIM locPath2$, nsizeLocPath2 DIM cancelTimer&, idleTimer&, loadLevel&, timerTick&, timeoutTimer& DIM adminDatabase$, nsizeAdminDatabase DIM coverDatabase$, nsizeCoverDatabase DIM formsDatabase$, nsizeformsDatabase DIM faxDatabase$, nsizeFaxDatabase DIM logDatabase$, nsizeLogDatabase DIM mailDatabase$, nsizeMailDatabase DIM transDatabase$, nsizeTransDatabase DIM localServer$, nsizeLocalServer DIM remoteServer$, nsizeRemoteServer '**//}}PYL_ADDED '** (961126:PKK -- Code to check whether there is an LFS.INI file in windows directory and read the timer values '** from the file. DIM oldIdleTimer&, oldCancelTimer&, oldTimeOutTimer&, oldLFSIdleTimer&, oldLFSCancelTimer&, oldLFSTimerTick& DIM lfsIniPath As STRING DIM keyValueStr As STRING lfsIniPath$ = GetWindowsDir() + "LFS.INI" oldIdleTimer& = 30000 ' This is Hex 0x7530 oldCancelTimer& = 60000 'This is Hex 0xea60 oldTimeOutTimer& = 3 oldLFSIdleTimer& = 0 oldLFSCancelTimer& = 5 oldLFSTimerTick& = 1000 'This is Hex 0x3e8 if DoesFileExist(lfsIniPath$,femExists) then if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_IDLE_TIMER") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_IDLE_TIMER") oldIdleTimer& = Val(keyValueStr$) End If ' MessageBox "LFS_IDLE_TIMER="+keyValueStr$ if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_CANCEL_TIMER") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_CANCEL_TIMER") oldCancelTimer& = Val(keyValueStr$) End If ' MessageBox "LFS_CANCEL_TIMER="+keyValueStr$ if DoesIniKeyExist(lfsIniPath$,"LFS","LFS_TIMEOUT_TIMER") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"LFS", "LFS_TIMEOUT_TIMER") oldTimeOutTimer& = Val(keyValueStr$) End If ' MessageBox "LFS_TIMEOUT_TIMER="+keyValueStr$ if DoesIniKeyExist(lfsIniPath$,"LFS","IDLE_TIMER") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"FAX", "IDLE_TIMER") oldLFSIdleTimer& = Val(keyValueStr$) End If ' MessageBox "IDLE_TIMER="+keyValueStr$ if DoesIniKeyExist(lfsIniPath$,"LFS","CANCEL_TIMER") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"FAX", "CANCEL_TIMER") oldLFSCancelTimer& = Val(keyValueStr$) End If ' MessageBox "CANCEL_TIMER="+keyValueStr$ if DoesIniKeyExist(lfsIniPath$,"LFS","TIMER_TICK") THEN keyValueStr$ = GetIniKeyString(lfsIniPath$,"FAX", "TIMER_TICK") oldLFSTimerTick& = Val(keyValueStr$) End If ' MessageBox "TIMER_TICK="+keyValueStr$ End If szkey$ = gREGLOTUS+"LFS\4.5" descript$ = "Domino Intranet Starter Pack 2.0 Fax Services" keyvalue$ = "Path" keyvalue1$ = "Description" keyvalue2$ = "Name" Insttype$ = "InstallType" Filename = "lfs.exe" nsize1 = len(Filename) + 1 nsize2 = len(descript$) + 1 If network$ = gNODE$ Then instvalue = 1 ElseIf network$ = gSTANDARD$ Then instvalue = 0 End if nsize3 = 4 If Lot_IsTheFeatureInstalled("LFSA") <> FALSE Then locpath$ = Lot_WhereIsFeature(prodno%, "LFSA", "lfs.exe") locpath = Lot_TrimEndSlash (locpath$) + "\" ' Save the install path in the Notes.Ini as DFSPath. We will need for launching LFSRCI Call session.SetEnvironmentVar("DFS_Path",LocPath$) nsize = len(LocPath$) + 1 regStatus& = Lot_RegCreateKeyEx(HKEY_LOCAL_MACHINE, szkey) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey, keyvalue$, REG_SZ, LocPath$, nsize) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey, keyvalue2$, REG_SZ, Filename, nsize1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey, keyvalue1$, REG_SZ, descript$, nsize2) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey, Insttype$, REG_DWORD, instvalue, nsize3) IF regStatus& <> ERROR_SUCCESS THEN RegErrorMsg SID_ERR_REG_GENERIC, gHLM$+"\"+szkey,"","" END IF '**//{{PYL_ADDED(ADDEDSUBKEY_FAXENGINE) locPath1$ = Lot_WhereIsFeature(prodno%, "LFSA", "lfsfax.exe") locPath1 = Lot_TrimEndSlash (locPath1$) + "\" nsizeLocPath1 = len(locPath1$) + 1 localServer$ = "" nsizeLocalServer = len(localServer$) + 1 '** bring forward any ini settings that we found. '**************************************************************************************************************** If oldLFSCancelTimer = 5 THEN cancelTimer = 5 ElseIf oldLFSCancelTimer >= 0 THEN cancelTimer = oldLFSCancelTimer Else cancelTimer = 5 End If '**************************************************************************************************************** If oldLFSIdleTimer >= 0 THEN idleTimer = oldLFSIdleTimer Else idleTimer = 0 End If loadLevel = 0 If oldLFSTimerTick >= 0 THEN timerTick = oldLFSTimerTick Else timerTick = 1000 End If faxDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+faxdbname$ nsizeFaxDatabase = len(faxDatabase$) + 1 szSubKey1$ = gREGLOTUS+"LFS\4.5"+"\FaxEngine" regStatus& = Lot_RegCreateKeyEx(HKEY_LOCAL_MACHINE, szSubKey1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "CancelTimer", REG_DWORD, cancelTimer, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "IdleTimer", REG_DWORD, idleTimer, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "LoadLevel", REG_DWORD, loadLevel, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "TimerTick", REG_DWORD, timerTick, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "Path", REG_SZ, LocPath1$, nsizeLocPath1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "QueueDatabase", REG_SZ, faxDatabase$, nsizeFaxDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey1, "QueueServer", REG_SZ, localServer$, nsizeLocalServer) IF regStatus& <> ERROR_SUCCESS THEN RegErrorMsg SID_ERR_REG_GENERIC, gHLM$+"\"+szSubKey1,"","" END IF '**//}}PYL_ADDED '**//{{PYL_ADDED(ADDEDSUBKEY_SYSTEM) locPath2$ = locPath$ nsizeLocPath2 = len(locPath2$) + 1 If oldCancelTimer >= 0 THEN cancelTimer = oldCancelTimer Else cancelTimer = 60000 End If If oldIdleTimer >= 0 THEN idleTimer = oldIdleTimer Else idleTimer = 0 End If If oldTimeOutTimer >= 0 THEN timeoutTimer = oldTimeOutTimer Else timeoutTimer = 3 End If If DoDomino Then adminDatabase$ = admindbname$ Else If Len(adminserver$) > 0 Then 'This is the fix for config 3' where admin db is installed on a server adminDatabase$ = admindbname$ Else adminDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+admindbname$ End If End If nsizeAdminDatabase = len(adminDatabase$) + 1 If DoDomino Then formsDatabase$ = formsdbname$ Else If Len(formsserver$) > 0 Then 'see the comments above in case of admin db formsDatabase$ = formsdbname$ Else formsDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+formsdbname$ End If End If nsizeFormsDatabase = len(formsDatabase$) + 1 If DoDomino Then logDatabase$ = logdbname$ Else logDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+logdbname$ End If nsizeLogDatabase = len(logDatabase$) + 1 If DoDomino Then transDatabase$ = transdbname$ Else transDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+transdbname$ End If nsizeTransDatabase = len(transDatabase$) + 1 mailDatabase$ = mailfile$ nsizeMailDatabase = len(mailDatabase$) + 1 remoteServer$ = mailserver$ nsizeRemoteServer = len(remoteServer$) + 1 coverDatabase$ = GetSymbolValue("NOTESDATADIR")+"\"+coverdbname$ nsizeCoverDatabase = len(coverDatabase$) + 1 'MessageBox("MailServer = " & mailserver$ & "; " & "RemoteServer = " & remoteServer$) szSubKey2$ = gREGLOTUS+"LFS\4.5"+"\System" regStatus& = Lot_RegCreateKeyEx(HKEY_LOCAL_MACHINE, szSubKey2) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "CancelTimer", REG_DWORD, cancelTimer, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "IdleTimer", REG_DWORD, idleTimer, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "TimeoutTimer", REG_DWORD, timeoutTimer, nsize3) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "Path", REG_SZ, LocPath2$, nsizeLocPath2) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "AdminDatabase", REG_SZ, adminDatabase$, nsizeAdminDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "AdminServer", REG_SZ, adminServer$, len(adminServer$) + 1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "CoverDatabase", REG_SZ, coverDatabase$, nsizeCoverDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "CoverServer", REG_SZ, localServer$, nsizelocalServer) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "FormsDatabase", REG_SZ, formsDatabase$, nsizeFormsDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "FormsServer", REG_SZ, formsServer$, len(formsServer$) + 1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "LogDatabase", REG_SZ, logDatabase$, nsizeLogDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "LogServer", REG_SZ, logServer$, len(logServer$) + 1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "MailDatabase", REG_SZ, mailDatabase$, nsizeMailDatabase) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "MailServer", REG_SZ, remoteServer$, nsizeRemoteServer) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "TransDatabase", REG_SZ, transDatabase$, len(transDatabase$) + 1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "TransServer", REG_SZ, transServer$, len(transServer$) + 1) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "WebFaxDatabase", REG_SZ, "webfax.nsf", 11) regStatus = regStatus+Lot_CreateRegKeyValueEx(HKEY_LOCAL_MACHINE, szSubKey2, "DominoServer", REG_SZ, dominoServer$, len(dominoServer$) + 1) IF regStatus& <> ERROR_SUCCESS THEN RegErrorMsg SID_ERR_REG_GENERIC, gHLM$+"\"+szSubKey2,"","" END IF '**//}}PYL_ADDED end if '** Write the registry value to add the new language 'AddRegistryLanguage LdString(SID_LFS_PROD_NAME), _ LdString(SID_LFS_PROD_VER) 'regStatus = DoesRegKeyExistEx(HKEY_LOCAL_MACHINE, szkey$) 'if RegStatus = 1 then ' this is used to check the current value of an existing key. ' gbuf$ receives the key values data. 'regStatus& = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey, keyvalue$, 0, gbuf$, nsize) 'end if '*** Register the components installed with the product LFS_RegisterSharedComponent "WIN32SHRASWANPRG", "Aswan", "1.4" LFS_RegisterSharedComponent "WIN32SHRBENTOPRG", "Bento", "3.0" LFS_RegisterSharedComponent "WIN32SHRSHAREDHELPPRG", "Help", "3.1" LFS_RegisterSharedComponent "WIN32SHRLOTUSSCRIPTPRG", "LotusScript", "3.1" LFS_RegisterSharedComponent "WIN32SHRFILLSDATA", "Fills", "1.0" LFS_RegisterSharedComponent "WIN32SHRUINST", "Uninstall", "1.0" LFS_RegisterSharedComponent "WIN32SHRUINSTLANGEN", "Uninstall", "1.0" END SUB '************************************************************************* '** FUNCTION AddIconsLFS (prodno%, network$, direction$, programgroup$) AS STRING '** '** Purpose: This is called just after file copy has completed. '** 1. Add program manager icons of those features '** that were installed. '** NOTE: THERE are many subtleties in here if you are '** dealing with node and CD installs. In particular, '** you must be ***very*** careful to understand where the '** things are that you are pointing to. They could '** be on the node, server, or CD! This, in combination '** with the INF file for Server/Node, is probably the '** trickiest part of writing a quality install. When '** configuring, you must be careful to consider what '** happens if there is a pre-existing product on the '** machine, in the same location or '** another one! This is very very tricky. What happens '** if you had a full installation previously in location C:\FOO '** and now the user is installing a minimum installation in loaction '** D:\FOO. '** '** Each and every thing you do for configuartion needs very '** careful thought. '** '** WE support a function Lot_WhereIsFeature("FeatureID") '** This currrently tells you the location of a feature '** if the feature appears both in the SERVER.INF and the '** NODE.INF referred to by the same Keyword ID. '** We do not support CDs with this command yet, but we will '** at some time. '** '** Also look out for writing to a file when the directory '** doesn't exist. If the user deselected one of your '** options, your install may still be running, but since '** there were no files to copy into the directory '** it wasn't created by the toolkit! '** '** Finally, remember that configuration files generally '** hold the state that the user has customized earlier. '** Sometimes you don't want to overwrite these! '** You will primarily use three MS-SETUP functions '** in here: '** 1. CreateProgmanItem (writing to progman) '** '** CreateProgmanGroup & ShowProgmanGroup are '** done for you by the time you reach this '** function. '** '** You will not have to do any configuration of LOTUS SHARED '** tools. The toolkit will do this for you. '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** programgroup$: The name of the program group where the user chose to '** install the program manager icons '** '** Errors: No return code for errors, you must Raise them '** Author: MZ '** Returns: return: gNEXT '** '************************************************************************* PUBLIC FUNCTION AddIconsLFS (prodno%, network$, direction$, programgroup$) AS STRING DIM ripath$, exepath$, exename$, szArgument$, notused%, DirectoryPath$ DIM LanguageQualifier$, LanguageAcronym$, IconName$, LinkName$ '**//{{PYL_ADDED(CREATELFSFAXEXE) DIM exePath2$, exeName2$, iconName2$, linkName2$, progfolderPath$ '**//}}PYL_ADDED ' DIM workspace As New NotesUIWorkspace AddIconsLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If LanguageQualifier$ = "" LanguageAcronym$ = GetSymbolValue(SYM_INSTALL_LANGUAGE$) szArgument$ = "/L" + LanguageAcronym$ exename$ = LdString(SID_LFS_LFSEXE) exepath$ = Lot_WhereIsFeature(prodno%, "LFSA", exename$) '** If language install, add qualifier If GetListItem(SYM_INSTALLKINDS$, prodno%) = gLANGUAGEINSTALL$ Then _ LanguageQualifier$ = LanguageAcronym$ '** Write entries in Program Manager If Lot_IsTheFeatureInstalled("LFSA") <> FALSE Then IconName$ = "Domino Intranet Starter Pack Fax Server"+LanguageQualifier LinkName$ = IconName$ + ".LNK" IF IsNewShell() THEN notused%=Lot_AddLinkToFolder(prodno%, exepath$+exename$, LinkName$, _ "LFS Program Description", szArgument$, exepath$) 'To register a shortcut object for uninstall you use for the path the full path of the link file notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_SHORTCUT$, Lot_GetProgFolder(prodno%)+LinkName$) ' Remove any icons from LFS1.1 and DFS4.5 beta progfolderPath$ = Lot_GetProgFolder(prodno%) ' check for these shortcuts and if they exist delete if DoesFileExist(progfolderPath$+"Lotus Fax Server.LNK",femExists) THEN kill progfolderPath$+"Lotus Fax Server.LNK" End If if DoesFileExist(progfolderPath$+"Lotus Fax Server Fax Engine.LNK",femExists) THEN kill progfolderPath$+"Lotus Fax Server Fax Engine.LNK" End If if DoesFileExist(progfolderPath$+"Domino Fax Server 4.5 .LNK",femExists) THEN kill progfolderPath$+"Domino Fax Server 4.5 .LNK" End If if DoesFileExist(progfolderPath$+"Domino Fax Engine 4.5 .LNK",femExists) THEN kill progfolderPath$+"Domino Fax Engine 4.5 .LNK" End If if DoesFileExist(progfolderPath$+"Domino Intranet Starter Pack Fax Server .LNK",femExists) THEN kill progfolderPath$+"Domino Intranet Starter Pack Fax Server .LNK" End If if DoesFileExist(progfolderPath$+"Domino Intranet Starter Pack Engine .LNK",femExists) THEN kill progfolderPath$+"Domino Intranet Starter Pack Fax Engine .LNK" End If ELSE CreateProgmanItem programgroup$, IconName$,_ exepath$+exename$+ " " + szArgument$, "", cmoOverwrite 'To register an icon object for uninstall the path is: ProgramGroup$\+ ' IconName notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_ICON$,_ programgroup$+"\"+IconName$) END IF '**//{{PYL_ADDED(CREATELFSFAXEXE) exeName2$ = LdString(SID_LFS_LFSFAXEXE) exePath2$ = Lot_WhereIsFeature(prodno%, "LFSA", exeName2$) IconName2$ = "Domino Intranet Starter Pack Fax Engine"+LanguageQualifier LinkName2$ = IconName2$ + ".LNK" IF IsNewShell() THEN notused%=Lot_AddLinkToFolder(prodno%, exePath2$+exeName2$, LinkName2$, _ "LFS Program Description", szArgument$, exePath2$) 'To register a shortcut object for uninstall you use for the path the full path of the link file notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_SHORTCUT$, Lot_GetProgFolder(prodno%)+LinkName2$) ELSE CreateProgmanItem programgroup$, IconName2$,_ exepath2$+exename2$+ " " + szArgument$, "", cmoOverwrite 'To register an icon object for uninstall the path is: ProgramGroup$\+ ' IconName2 notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_ICON$,_ programgroup$+"\"+IconName2$) END IF '**//}}PYL_ADDED 'To register a file object for uninstall that is not in the inf but is created at install time to 'be used by a feature 'notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_FILE$, FilePath$) 'To register a file_group object for uninstall that is not in the inf but is created at install time to 'be used by a feature of a product (that needs to be cleanup by uninstall). 'The FilePath$ is the full path to a directory including a wildcard (*) as a file name 'notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_FILE_GROUP$, FilePath$) 'To register a directory object for uninstall that is not in the inf (as a destination directory) but is created 'at install time to be used by a feature of a product (that needs to be cleanup by uninstall). 'The DirectoryPath$ is the full path to the directory 'notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_DIRECTORY$, DirectoryPath$) 'To register a directory object for uninstall that is not in the inf (as a destination directory) but is created 'at install time to be used by a feature of a product (that needs to be cleanup by uninstall). 'The DirectoryPath$ is the full path to the directory DirectoryPath$ = GetSymbolValue("LFSDIR") DirectoryPath$ = MakePath(DirectoryPath$, "queue") notused%=Lot_RegisterObject("LFSA", UNIN_CLASS_DIRECTORY$, DirectoryPath$) End If If Lot_IsTheFeatureInstalled("LFSTOP") <> FALSE Then 'To register a registry key for uninstall to cleanup when a feature is uninstalled. 'The KeyString$ is the full Key specification: 'HKEY_LOCAL_MACHINE\SOFTWARE\lOTUS\LFS\2.1 'notused%=Lot_RegisterObject("LFSTOP", UNIN_CLASS_REGISTRY_KEY$, KeyString$) 'To register a registry key Value for uninstall to cleanup when a feature is uninstalled. 'The KeyValueString$ is the full Key+SubKey+ValueName specification: 'HKEY_LOCAL_MACHINE\SOFTWARE\Lotus\DFS\4.5\Description 'notused%=Lot_RegisterObject("LFSTOP", UNIN_CLASS_REGISTRY_VALUE$, KeyValueString$) 'To register a registry key hive for uninstall to cleanup when a feature is uninstalled (the complet ' hive will be deleted). 'The KeyHive$ is the full Key Hive specification: ' HKEY_LOCAL_MACHINE\SOFTWARE\LOTUS\LFS 'notused%=Lot_RegisterObject("LFSTOP", UNIN_CLASS_REGISTRY_HIVE$, KeyHive$) End If ' Add Databases to the Notes Workspace. ' Call workspace.AddDatabase("","lfsadmin.nsf") ' Call workspace.AddDatabase("","lfscover.nsf") ' Call workspace.AddDatabase("","lfsforms.nsf") ' Call workspace.AddDatabase("","lfstrans.nsf") ' Call workspace.AddDatabase("","lfslog.nsf") ' Call workspace.AddDatabase("","lfsfax.nsf") SKIPCONFIG: END FUNCTION '************************************************************************* '** FUNCTION PostSuccessRegLFS (prodno%, network$, direction$) AS STRING '** '** Purpose: If you need to launch something after install runs '** In Symbols : '** Out Symbols: '** '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT '** '** Errors: No return code for errors, you must Raise them '** Author: MMeth '** Returns: return: gNEXT '** '************************************************************************* PUBLIC FUNCTION PostSuccessRegLFS (prodno%, network$, direction$) AS STRING PostSuccessRegLFS = direction$ '' In the backwards case, keep backing up If direction$ = gBACK Then EXIT FUNCTION End If END FUNCTION '******************************** '******************************** '** Product Specific Functions ** '******************************** '******************************** '************************************************************************* '** FUNCTION GetLFSPathfromLotusIni() AS STRING '** '** Purpose: Gets the product dir path from Lotus.ini file, and searches for '** acronym.exe in the product dir path. '** '** Author: JYOTI KEDIA, JMD '** Arguments: None '** Returns: if acronym.exe does not exist in dir specified in lotus.ini, it '** returns "", otherwise returns the full path to the product. '** NOTE: changed to not include product name by JMD '** includes trailing backslash '************************************************************************* FUNCTION GetLFSPathfromLotusIni() AS STRING DIM DestDir$, lotusinipath$, defdir$, temp%, ProdDir$, fullpath$, rv% DIM szkey$, keyvalue$, nsize&, gbuf$, ret& DestDir$ = GetWindowsDir() lotusinipath$ = DestDir$ +"lotus.ini" if DoesFileExist(lotusinipath$,femExists) then defdir$ = GetIniKeyString(lotusinipath$,"Lotus Applications", "lfs") if defdir$ <> "" then temp% = INSTR(1,LCASE$(defdir$),"lfs.exe") if temp% <> 0 then ProdDir$ = MID$(defdir$,1,(temp%-1)) if ProdDir$ <> "" then fullpath$ = ProdDir$ + "lfs.exe" if DoesFileExist(fullpath$, femExists) then rv% = Lot_CleanPath(fullpath$) GetLFSPathfromLotusIni = ProdDir$ EXIT FUNCTION end if end if end if end if end if '** Now try the registry szkey$ = "SOFTWARE\Lotus\" + _ LTRIM$(LdString(SID_LFS_PROD_NAME)) + "\" + _ LTRIM(LdString(SID_LFS_PROD_VER)) keyvalue$ = "Path" ret& = Lot_GetRegKeyValueEx(HKEY_LOCAL_MACHINE, szkey$, keyvalue$, 0, gbuf$, nsize&) IF gbuf$ <> "" THEN GetLFSPathfromLotusIni = LTRIM$(gbuf$) ELSE GetLFSPathfromLotusIni = "" END IF END FUNCTION PUBLIC FUNCTION InitLanguageLFS (prodno%, network$, direction$) AS STRING '************************************************************************* '** Purpose: Finds out the installed languages and determines the nature '** of the install. If not running automated, displays a message box for '** a language install '** '** Author: JMDonohue '** Arguments: All parameters are **read only**. '** prodno%: This is your prodno%. It is assigned to you by the '** toolkit in the order in which you were registered. '** When your product is part of SmartSuite, SmartSuite '** will always be product #1. (prodno% >=1) '** network$: gSTANDARD | gSERVER | gNODE | gDISTRIBTUION '** direction$: gNEXT | gBACK (If gBACK, and you are showing UI) '** then step backwards '** '** Returns: (not used) '** '** Implicitly sets the following global symbols for later processing: '** SYM_INSTALLKIND$ '** SYM_INSTALLKINDS$ (list) '** Sets the following global symbols (based on product #1) for later '** processing: '** SYM_REG_PRODUCTNAME$ '** SYM_REG_PRODUCTVER$ '************************************************************************* DIM szProductName$, szProductVersion$, szInstallKind$, szLanguageSubdir$ szProductName$ = LdString(SID_LFS_PROD_NAME) szProductVersion$ = LdString(SID_LFS_PROD_VER) if prodno% = 1 THEN SetSymbolValue SYM_REG_PRODUCTNAME$ , szProductName$ SetSymbolValue SYM_REG_PRODUCTVER$ , szProductVersion$ END IF InitLanguages szProductName$, szProductVersion$, prodno% InitLanguageLFS = "" END FUNCTION '************************************************************************* '** LFSMOREDIRSCB '** Purpose: This SUB handles the processing for the MORE DIRECTORIES '** dialog. '** '** IN SYMBOLS handle to dialog, Control ID, Class, Instance '** '** Author: Michael Natsis '** Arguments: '** '** '** Returns: '** '************************************************************************* SUB LFSMOREDIRSCB (hDlg&, CtrlId%, Classes$, LInst&) DIM dirChanged1%, dirChanged2%, dirChanged3%, i%, notused% DIM drvSel%,Inst%, dirToChange1$, dirToChange2$,dirToChange3$ STATIC drvIndex%(1 to MAX_NO_DRIVECOMBOS) Inst% = CINT(LInst&) SELECT CASE Classes$ CASE "__DLGINIT" '** This is the directory for the Work Files Lot_GetDriveFreeSpaceList "IDC_COMBO1" SetListItem "IDC_EDIT", 1, GetSymbolValue("LFSWORKDIR") drvIndex%(1) = ValidateEditBox(hDlg& , 1) AddListItem SYM_UPDATELIST$, "IDC_EDIT1" '** This is the directory for the Smart Master Files Lot_GetDriveFreeSpaceList "IDC_COMBO2" SetListItem "IDC_EDIT", 2, GetSymbolValue("LFSMASTERSDIR") drvIndex%(1) = ValidateEditBox(hDlg& , 2) AddListItem SYM_UPDATELIST$, "IDC_EDIT2" '** This is the directory for the Backup Files Lot_GetDriveFreeSpaceList "IDC_COMBO3" SetListItem "IDC_EDIT", 3, GetSymbolValue("LFSBACKUPDIR") drvIndex%(1) = ValidateEditBox(hDlg& , 3) AddListItem SYM_UPDATELIST$, "IDC_EDIT3" ' You can also do this with a CASE statement i.e. CASE IDC_COMBO1 w/ SELECT CASE Inst% CASE "IDC_COMBO1" ComboSelChanged 1 , Inst% dirChanged1% = TRUE CASE "IDC_COMBO2" ComboSelChanged 2 , Inst% dirChanged2% = TRUE CASE "IDC_COMBO3" ComboSelChanged 1 , Inst% dirChanged3% = TRUE CASE "IDC_BRWSDIR" drvSel% = ValidateBrowse(hDlg&,Inst%) SELECT CASE Inst% CASE 1 dirChanged1% = TRUE CASE 2 dirChanged2% = TRUE CASE 3 dirChanged3% = TRUE END SELECT CASE "IDC_EDIT" SELECT CASE Inst% CASE 1 dirChanged1% = TRUE CASE 2 dirChanged2% = TRUE CASE 3 dirChanged3% = TRUE END SELECT CASE "IDC_OK" '** Validate Paths always: to check for a file with the same name '** WorkDir drvSel% = ValidateEditBox(hDlg& , 1) IF drvSel% = 0 THEN SetListItem "__LASTSTATUS", 1, "Q" EXIT SUB ELSE drvIndex%(1) = drvSel% END IF dirToChange1$ = GetPathFromComboEdit(hDlg&, 1) IF ValidatePath(dirToChange1$) = FALSE THEN SetListItem "_LASTSTATUS",1,"Q" EXIT SUB ELSE SetSymbolValue "LFSWORKDIR", dirToChange1$ END IF '** SMasters drvSel% = ValidateEditBox(hDlg& , 2) IF drvSel% = 0 THEN SetListItem "__LASTSTATUS", 1, "Q" EXIT SUB ELSE drvIndex%(2) = drvSel% END IF dirToChange2$ = GetPathFromComboEdit(hDlg&, 2) IF ValidatePath(dirToChange2$) = FALSE THEN SetListItem "_LASTSTATUS",1,"Q" ELSE SetSymbolValue "LFSMASTERSDIR", dirToChange2$ END IF '** Backup drvSel% = ValidateEditBox(hDlg& , 3) IF drvSel% = 0 THEN SetListItem "__LASTSTATUS", 1, "Q" EXIT SUB ELSE drvIndex%(3) = drvSel% END IF dirToChange3$ = GetPathFromComboEdit(hDlg&, 3) IF ValidatePath(dirToChange3$) = FALSE THEN SetListItem "_LASTSTATUS",1,"Q" ELSE SetSymbolValue "LFSBACKUPDIR", dirToChange3$ END IF '** Refresh destination 'Lot_RefreshDestination("LFSWORKDIR") 'Lot_RefreshDestination("LFSMASTERSDIR") 'Lot_RefreshDestination("LFSBACKUPDIR") END SELECT 'Classes END SUB SUB LFS_RegisterSharedComponent(Key$, FileName$, Version$) '************************************************************************* '** Purpose: This product routines registers the shared component for the '** product and writes an entry in cinstall.ini for uninstall '** '** IN SYMBOLS handle to dialog, Control ID, Class, Instance '** '** Author: Michael Natsis (stolen from flw.lss by JMD) '** Arguments: '** Key$ Shared section keyword, "WIN32SHRSMARTICONPRG", e.g. '** FileName$ Name of shared component, "Icon Palette", e.g. '** Version$ Version of shared component, "6.0", e.g. '** '************************************************************************* DIM szProductName$, szProductVersion$, RegKeyName$ szProductName$ = LdString(SID_LFS_PROD_NAME) szProductVersion$ = LdString(SID_LFS_PROD_VER) IF Lot_IsTheFeatureInstalled(Key$) <> FALSE THEN RegKeyName$ = gREGLOTUS + szProductName$ + "\" + szProductVersion$ + _ "\Components\" + FileName$ + "\" + Version$ Lot_RegCreateKeyEx HKEY_LOCAL_MACHINE, RegKeyName$ END IF END SUB '**************************************************************************** '** FUNCTION DetectPreviousVersion ( Productfound$ ) AS STRING '** '** Purpose: Check Previous Version is install.. '** '** Author: schen 10/18/95 '** Arguments: Productfound$ '** Returns: YES or NO '**************************************************************************** FUNCTION DetectPreviousVersion ( Productfound$ ) AS STRING DIM destpath$, temp%, dirpath$, adwpath$, pathLFS$, LFSversion$ DIM lotusiniPath$,defdir$ lotusiniPath$ = GetWindowsDir() + "lotus.ini" if DoesFileExist(lotusinipath$,femExists) then defdir$ = GetIniKeyString(lotusiniPath$,"Lotus Applications", "LFS") temp% = INSTR(1,LCASE$(defdir$),"release") if temp% <> 0 then LFSversion$ = MID$(defdir$,(temp%+8),3) end if else LFSversion$ = "0" end if destpath$ = GetLFSPathfromLotusIni() If ( destpath$ <> "" ) then DetectPreviousVersion = "YES" if ( LFSversion$ <> "2.0" )Then Productfound = "True" SetSymbolValue "LFSOBSDIR1", destpath$ else Productfound = "NO" SetSymbolValue "LFSOBSDIR1",LdString(SID_LFS_DIR) end if Else DetectPreviousVersion = "NO" Productfound = "NO" SetSymbolValue "LFSOBSDIR1",LdString(SID_LFS_DIR) End if END FUNCTION '**************************************************************************** '** SUB LFSRemoveObsoleteFiles(hDlg&, CtrlId%, Classes%, Inst&) '** '** Purpose: callback to handle Remove Files dialog. '** '** Author: BMK 7/18/95 (significantly modified by TLB, and then jshaw) '** Arguments: hDlg%, CtrlId%, Classes$, Inst% '** Returns: NONE '**************************************************************************** SUB LFSRemoveObsoleteFiles(hDlg&, CtrlId%, Classes$, LInst&) DIM nSections%, count%, chpt$, sym$, notused% nSections% = 2 SELECT CASE Classes$ case "__DLGINIT" AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT1) AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT2) AddListItem SYM_UPDATELIST$, SYM_NORMALFONT$ case "IDC_OK" for count% = 1 to nSections% sym$ = "LFSOBSFILES" + LTRIM$(STR$(count%)) chpt$ = Lot_GetChapterFromKeyWord (sym$) if chpt$ <> "" then notused% = Lot_SetChapterFilesInCopyListInOrOut (chpt$, 1) end if next case "IDC_BACK" ' reset INF sections to OFF in case user changes his/her mind for count% = 1 TO nSections% sym$ = "LFSOBSFILES" + LTRIM$(STR$(count%)) chpt$ = Lot_GetChapterFromKeyWord(sym$) if chpt$ <> "" then notused% = Lot_SetChapterFilesInCopyListInOrOut (chpt$, 0) end if next case "IDC_EXIT" ' reset INF sections to OFF in case user changes his/her mind for count% = 1 TO nSections% sym$ = "LFSOBSFILES" + LTRIM$(STR$(count%)) chpt$ = Lot_GetChapterFromKeyWord(sym$) if chpt$ <> "" then notused% = Lot_SetChapterFilesInCopyListInOrOut (chpt$, 0) end if next END SELECT END SUB '************************************************************************* FUNCTION Lot_WriteOLERegForLFS(network$, prodno%) AS INTEGER '** Purpose: This function writes OLE registration needed '** Author: Chuck Shubert (copying Paul Stefancyk (copying 1-2-3 code by MZ/MMeth)) '** Arguments: '** Returns: SUCCESS '** NOTE: This function is from flw.lss '************************************************************************* DIM ProgDir$, regFile, LFSreg, FoundPos,RegBuffer$ DIM LastCount, CopyDestDir$, ExecError%, OleRegPath$, LFSdir$, CommandLine$ regFile = 114 LFSreg = 117 LFSdir$ = Lot_WhereIsFeature(prodno%, "LFSTOP", LdString(SID_LFS_LFSEXE)) ProgDir$ = Lot_GetDestDirValueFromInstallIni("LFSDIR") CopyDestDir$ = GetSymbolValue("LFSDIR") OleRegPath$ = CopyDestDir$+"win32obj.reg" IF DoesFileExist(OleRegPath$, femExists) <> TRUE THEN EXIT FUNCTION OPEN OleRegPath$ FOR INPUT AS regFile OPEN CopyDestDir$+"LFS3.reg" FOR OUTPUT AS LFSreg Lot_RegisterObject "LFSTOP", UNIN_CLASS_FILE$, CopyDestDir$ + "LFS3.reg" RegBuffer$ = INPUT$(LOF(regFile), regFile) ' entire file. LastCount = 1 SearchLoop: FoundPos = INSTR(LastCount, RegBuffer$, "$$PRG") IF FoundPos = 0 THEN PRINT #LFSreg, Mid$(RegBuffer$, LastCount) ELSE PRINT #LFSreg, Mid$(RegBuffer$, LastCount, FoundPos-LastCount); LastCount = FoundPos+5 ' skip token PRINT #LFSreg, ProgDir$; GOTO SearchLoop END IF CLOSE #regFile, #LFSreg 'Don't need this version any more RemoveFile CopyDestDir$ + "win32obj.reg", cmoNone ' register LFS3.REG, need extra quotes for long file names with spaces under Chicago IF WhatPlatform() = PLATFORM_WIN95 THEN CommandLine$ = "regedit /s " + """" + CopyDestDir$ + "LFS3.reg" + """" ELSE CommandLine$ = "regedit /s " + CopyDestDir$ + "LFS3.reg" END IF ExecError% = WinExec (CommandLine$, SW_HIDE) Lot_WriteOLERegForLFS = SUCCESS End Function '************************************************************************* '** PUBLIC SUB DB_LFSBACKUPMASTERSCB(hDlg%, CtrlId%, Classes$, Inst%) AS INTEGER '** '** Purpose: Handles Dialog for Backup of currently installed smasters '** '** Author: Michael Natsis '** Arguments: hDlg%, CtrlId%, Classes$, Inst% '** Returns: SUCCESS '************************************************************************* 'PUBLIC SUB DB_LFSBACKUPMASTERSCB(hDlg&, CtrlId%, Classes$, Inst&) 'LFSBACKUPMASTERSCB ' SELECT CASE Classes$ ' CASE "IDC_OK" ' LFSBackupSmartMasters% = TRUE ' case "IDC_BACK" ' LFSBackupSmartMasters% = FALSE ' case "IDC_EXIT" ' LFSBackupSmartMasters% = FALSE ' END SELECT 'END SUB '**//{{PYL_ADDED(LFSNOTESDBCB) '************************************************************************* 'SUB LFSNOTESDBCB - Callback dialog proc for Notes LFS Mail File Dlg '************************************************************************* SUB LFSNOTESDBCB(hDlg&, CtrlId%, Classes$, LInst&) DIM notused%, i%, j% DIM numServers As INTEGER DIM bufLen as INTEGER DIM retVal,tempVal As INTEGER DIM n% DIM serverName As STRING DIM serverList As STRING * 5120 DIM tempStr$ DIM SelItemIndex% bufLen = 5120 ' MessageBox "In the callback routine" ' MessageBox Str(CtrlId%)&","&Classes$&","&Str(LInst&) SELECT CASE Classes$ CASE "__DLGINIT" AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT1) AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT2) AddListItem SYM_UPDATELIST$, SYM_NORMALFONT$ 'Get the list of servers on all ports to populate the list box ' MessageBox "Getting the list of servers" retVal = LFSGetServerList ("", numServers,serverList,bufLen) ' MessageBox str(retVal) ' MessageBox serverList,MB_OK,"List of Servers" ' If retVal THEN ' MessageBox "Error in getting ServerList"+retVal ' Else ' MessageBox serverList,MB_OK,"List of servers" ' End If ' MessageBox Str(numServers) j% = 0 serverList = serverList & "," For i% = 1 To numServers-1 serverName = Mid(serverList,j%+1,InStr(j%+1,serverList,",")-j%-1) j% = InStr(j%+1,serverList,",") SetListItem "IDC_COMBO1",i%,serverName SetListItem "IDC_COMBO2",i%,serverName ' MessageBox serverName,MB_OK,"Individual Server" Next SetListItem "IDC_EDIT", 1, mailserver$ SetListItem "IDC_EDIT", 2, mailfile$ SetListItem "IDC_EDIT", 3, admindbname$ SetListItem "IDC_EDIT", 4, formsdbname$ AddListItem SYM_UPDATELIST$, "IDC_COMBO1" AddListItem SYM_UPDATELIST$, "IDC_COMBO2" notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT1), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT2), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT3), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT4), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_COMBO1), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_COMBO2), TRUE)) AddListItem SYM_UPDATELIST$, "IDC_EDIT1" AddListItem SYM_UPDATELIST$, "IDC_EDIT2" AddListItem SYM_UPDATELIST$, "IDC_EDIT3" AddListItem SYM_UPDATELIST$, "IDC_EDIT4" CASE "IDC_EDIT" FOR i% = 1 TO 4 IF LEN(GetListItem ("IDC_EDIT", i%)) < 1 THEN notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_OK), FALSE)) ELSE notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_OK), TRUE)) END IF NEXT CASE "IDC_COMBO1" SelItemIndex% = LInst& ' MessageBox Str(SelItemIndex%) IF (SelItemIndex% >= 0) THEN adminserver$ = GetListItem("IDC_COMBO1",SelItemIndex%) End If ' MessageBox adminserver$ CASE "IDC_COMBO2" SelItemIndex% = LInst& ' MessageBox Str(SelItemIndex%) IF (SelItemIndex% >= 0) THEN formsserver$ = GetListItem("IDC_COMBO2",SelItemIndex%) End If ' MessageBox formsserver$ CASE "IDC_OK" ' FOR i% = 1 TO 9 FOR i% = 1 TO 4 IF LEN(GetListItem ("IDC_EDIT", i%)) < 1 THEN ErrorMsgNoDlgExit SID_TKT_ERR_NEEDNAMES, "" EXIT FOR END IF NEXT mailserver$ = GetListItem("IDC_EDIT", 1) mailserver$ = LCase$(Trim$(mailserver$)) mailfile$ = GetListItem("IDC_EDIT", 2) mailfile$ = LCase$(Trim$(mailfile$)) admindbname$ = GetListItem("IDC_EDIT", 3) admindbname$ = LCase$(Trim$(admindbname$)) formsdbname$ = GetListItem("IDC_EDIT", 4) formsdbname$ = LCase$(Trim$(formsdbname$)) ' MessageBox "Before: admin, forms: "+adminserver$+" "+formsserver$ ' notused% = GetDlgItemText(hDlg&,IDC_COMBO1,adminserver$,64) ' notused% = GetDlgItemText(hDlg&,IDC_COMBO2,formsserver$,64) ' MessageBox "After: admin, forms: "+adminserver$+" "+formsserver$ logserver$ = "" transserver$ = "" coverserver$ = "" faxqserver$ = "" CASE "IDC_BACK" END SELECT END SUB '**//}}PYL_ADDED '**//{{PKK_ADDED(LFSNOTESDBCB) '************************************************************************* 'SUB LFSDOMINONOTESDBCB - Callback dialog proc for Notes LFS Mail File Dlg '************************************************************************* SUB LFSDOMINONOTESDBCB(hDlg&, CtrlId%, Classes$, LInst&) DIM notused%, i%, j% DIM numServers As INTEGER DIM bufLen as INTEGER DIM retVal,tempVal As INTEGER DIM n% DIM serverName As STRING DIM serverList As STRING * 5120 DIM tempStr$ DIM SelItemIndex% ' MessageBox "I should be coming here???????" bufLen = 5120 ' MessageBox Str(CtrlId%)&","&Classes$&","&Str(LInst&) SELECT CASE Classes$ CASE "__DLGINIT" AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT1) AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT2) AddListItem SYM_UPDATELIST$, SYM_NORMALFONT$ SetListItem "IDC_EDIT", 1, mailserver$ SetListItem "IDC_EDIT", 2, mailfile$ notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT1), TRUE)) notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT2), TRUE)) AddListItem SYM_UPDATELIST$, "IDC_EDIT1" AddListItem SYM_UPDATELIST$, "IDC_EDIT2" CASE "IDC_EDIT" FOR i% = 1 TO 2 IF LEN(GetListItem ("IDC_EDIT", i%)) < 1 THEN notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_OK), FALSE)) ELSE notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_OK), TRUE)) END IF NEXT CASE "IDC_OK" FOR i% = 1 TO 2 IF LEN(GetListItem ("IDC_EDIT", i%)) < 1 THEN ErrorMsgNoDlgExit SID_TKT_ERR_NEEDNAMES, "" EXIT FOR END IF NEXT ' MessageBox "We are at the beginning of dominoserver stuff" mailserver$ = GetListItem("IDC_EDIT", 1) mailserver$ = LCase$(Trim$(mailserver$)) mailfile$ = GetListItem("IDC_EDIT", 2) mailfile$ = LCase$(Trim$(mailfile$)) adminserver$ = LCase$(dominoserver$) formsserver$ = LCase$(dominoserver$) logserver$ = LCase$(dominoserver$) transserver$ = LCase$(dominoserver$) ' MessageBox "DominoServerName = "+dominoserver$+"Admin,forms,log,transServers: "+adminserver$+formsserver$+logserver$+transserver$ webfaxdbname$ = "webfax.nsf" coverserver$ = "" faxqserver$ = "" CASE "IDC_BACK" END SELECT END SUB '************************************************************************************************************* ' Callback routine for the dialog box LFSDODOMINO '************************************************************************************************************* SUB LFSDODOMINOCB(hDlg&, CtrlId%, Classes$, LInst&) DIM notused%, i% SELECT CASE Classes$ CASE "__DLGINIT" ' AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT1) AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT2) AddListItem SYM_UPDATELIST$, SYM_NORMALFONT$ SetListItem "IDC_EDIT", 1, "" ' MessageBox "In DlgInit of LFSDODOMINOCB" notused% = CINT(EnableWindow(GetDlgItem(hDlg&,IDC_EDIT1), TRUE)) AddListItem SYM_UPDATELIST$, "IDC_EDIT1" CASE "IDC_CONTINUE" ' MessageBox "In IDC_OK of LFSDODOMINOCB" dominoserver$ = "" dominoserver$ = GetListItem("IDC_EDIT", 1) dominoserver$ = Trim(dominoserver$) ' MessageBox "DominoServerName is "+dominoserver$ If LEN(dominoserver$) > 0 Then DoDomino = -1 Else DoDomino = 0 End If CASE "IDC_BACK" END SELECT END SUB '************************************************************************************************************** ' Removes the NT Service (FaxManager) and NT Device ($devfax0) '************************************************************************************************************** SUB RemoveDevAndService DIM cmdLineDrv As STRING * 50 DIM cmdLineSrv As STRING * 50 DIM cmdNetStop As STRING * 50 cmdLineDrv$ = "INSTDRV $devfax0 remove" cmdLineSrv$ = "INSTSRV faxmanager remove" cmdNetStop = "NET STOP FAXMANAGER" If WinExec(cmdNetStop$, 0) < 32 Then MessageBox "Could not stop the faxmanager service, if it is installed then please remove it before proceeding" ' Else ' MessageBox "Successfully removed the device driver $devfax0 from the NT Devices" End If If WinExec(cmdLineDrv$, 0) < 32 Then MessageBox "Could not remove the device driver $devfax0, if it is installed then please remove it before proceeding" ' Else ' MessageBox "Successfully removed the device driver $devfax0 from the NT Devices" End If If WinExec(cmdLineSrv, 0) < 32 Then MessageBox "Could not remove the faxmanager Service, if it is installed then please remove it before proceeding" ' Else ' MessageBox "Successfully removed the faxmanager Service from the NT Services" End If END SUB '************************************************************************************************************** ' This sub removes LFS1.1 if it is on the machine. '************************************************************************************************************** SUB RemoveLFS11 ' Check to see if LFS.INI exists, if yes then get the Install_dir else return because there is nothing to remove. DIM lfsIniPath As STRING DIM InstallDirPath As STRING DIM PixtranPath As STRING DIM oldPixPath As STRING DIM notused% recursiveCount% = 0 lfsIniPath$ = GetWindowsDir() + "LFS.INI" if DoesFileExist(lfsIniPath$,femExists) then if DoesIniKeyExist(lfsIniPath$,"LFS","INSTALL_DIR") THEN InstallDirPath$ = GetIniKeyString(lfsIniPath$,"LFS", "INSTALL_DIR") ' MessageBox "The LFS1.1 Install dir = "+InstallDirPath$ Else MessageBox "Unable to find the Install Directory for LFS 1.1, giving up on attempt to remove LFS 1.1" Exit Sub 'Install Dir information is unavailable. We cannot continue End If Else Exit Sub End If ' Move the files in Windows\system32\PIXTRAN directory to Windows\System32\OLDPIX PixtranPath$ = GetWindowsDir() + "PIXTRAN" oldPixPath$ = GetWindowsDir() + "OLDPIX" ' MessageBox "PixTranDirectory = "+PixtranPath$+", OldPix Path = "+oldPixPath$ RenameDir PixTranPath$,oldPixPath$ ' MessageBox "Succeeded in moving files from PIXTRAN directory to OldPix directory both are under Windows\system32" ' Put up a warning message and then Nuke the Install_dir ' MessageBox "We are about to remove the "+InstallDirPath$+" which contains LFS 1.1, If you wish to save any of the files "+_ ' "in that directory the please switch to FileManger and move those files out to another location before click OK" If WinExec("delTree /y "+InstallDirPath$,0) < 32 Then MessageBox "Failed to remove the "+InstallDirPath$ ' Else ' MessageBox "Successfully removed "+InstallDirPath$+" directory" End If END SUB ' *********************************************************************************************************************** SUB LFSNotesDBUpgradeCB(hDlg&, CtrlId%, Classes$, LInst&) DIM notused%, i% DIM message AS STRING ' MessageBox "In Callback routine"+Classes$+" "+STR(CtrlId%) SELECT CASE Classes$ CASE "__DLGINIT" ' MessageBox "In DLGINIT Case "+NameOfDBtoUpgrade$+" "+ServerOfDBtoUpgrade AddListItem SYM_NORMALFONT$, STR$(IDC_TEXT1) AddListItem SYM_UPDATELIST$, SYM_NORMALFONT$ message = NameOfDBtoUpgrade$ if LEN(TRIM$(ServerOfDBtoUpgrade$)) > 0 THEN message = message+" on the server "+ServerOfDBtoUpgrade$ Else message = message+" on the Local System" End If ' MessageBox message$ SetListItem "IDC_TEXT",1,message AddListItem SYM_UPDATELIST$, "IDC_TEXT1" SetListItem "IDC_TEXT",2,newServerName$ AddListItem SYM_UPDATELIST$, "IDC_TEXT2" DBUpgradeOverwriteCancel% = 0 CASE "IDC_OK" ' MessageBox "In IDC_OK (Upgrade) of LFSNotesDBUpgradeCB" DBUpgradeOverwriteCancel% = 1 CASE "IDC_CONTINUE" ' MessageBox "In IDC_CONTINUE (Overwrite) of LFSNotesDBUpgradeCB" DBUpgradeOverwriteCancel% = 2 CASE "IDC_BACK" 'Means Leave the DB untouched ' MessageBox "In IDC_CANCEL (Leave untouched) of LFSDODOMINOCB" DBUpgradeOverwriteCancel% = 3 END SELECT NameOfDBtoUpgrade$ = "" ServerOfDBtoUpgrade$ = "" END SUB '************************************************************************************************************ 'This routines renames an existing directory '************************************************************************************************************ SUB renameDir(sourceDir As STRING, destDir As STRING) if DoesFileExist(sourceDir$,femExists) Then Name sourceDir$ As destDir$ End If END SUB '**//}}PKK_ADDED